sampledata

'
' Macro2 Macro
'
Dim i As Integer

For i = 1 To 20

'Cells(i, "D").Select
'  Selection.Copy
'  Cells(i, "G").Select
  '  ActiveSheet.Paste
  If Cells(i, "D") = Cells(i, "G") Then
  Cells(i, "A").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
  Else
 
  With Selection.Font
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
  End If
 
 
Next