I figured it out:
Code:
For iRow = 2 To 100
For iCol = 1 To 16
If varSheetA(iRow, iCol) <> varSheetB(iRow, iCol) Then
wkSheetC.Cells(iRow, 2) = varSheetB(iRow, 2)
wkSheetC.Cells(iRow, 8) = varSheetB(iRow, 8)
wkSheetC.Cells(iRow, 14) = varSheetB(iRow, 14)
wkSheetC.Cells(iRow, 15) = varSheetB(iRow, 15)
If varSheetA(iRow, 36) = strVar Then
wkSheetC.Cells(iRow, 16).Interior.ColorIndex = 22
wkSheetC.Cells(iRow, 16).Font.ColorIndex = 1
wkSheetC.Cells(iRow, 16).Font.Bold = True
wkSheetC.Cells(iRow, 16) = varSheetB(iRow, 16)
Else
wkSheetC.Cells(iRow, 16) = varSheetB(iRow, 16)
End If
wkSheetC.Cells(iRow, iCol) = varSheetA(iRow, iCol) & " ===> " & varSheetB(iRow, iCol)
bFilesIdentical = False
End If
Next iCol
Next iRow
I don't need the RGB code