I have two sheets and they both have data in them. I'm trying to
compare them and if they are the same then turn the font red. I tried
this but nothing happens.

Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets("Ctg Sheet")

If sht1.Range("f2") = sht2.Range("f22") Then
sht1.Range("F2").Font.Color = 3

End

try this

Sub test()
Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets("Ctg Sheet")

If sht1.Range("f2") = sht2.Range("f22") Then
sht1.Range("F2").Font.ColorIndex = 3

End If
End Sub

--


Gary


wrote in message
ups.com...
I have two sheets and they both have data in them. I'm trying to
compare them and if they are the same then turn the font red. I tried
this but nothing happens.

Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets("Ctg Sheet")

If sht1.Range("f2") = sht2.Range("f22") Then
sht1.Range("F2").Font.Color = 3

End