Hello everyone,
Actually I made a solution to my question as below code.However if
"ba" range is larger the code works very slow.Any suggestions?
Thank again
Baha




Sub mark_the_match()
Application.ScreenUpdating = False

Dim r As Range
Dim a As Variant
Dim ba As Range
Set ba = Sheet1.Range("J1:U100") ' if this range is longer,code works
very slow

Sheet1.Select
'Range("B:B").Select
' Columns("B:B").Select
' Selection.Interior.ColorIndex = xlNone
'Sheet1.Select

For Each r In ba
If Application.WorksheetFunction.CountIf(Sheet2.Range ("C:C"), r) = 1
Then
a = a + 1
r.Offset(0, -1).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next r
Sheet1.Range("A1") = a
Application.ScreenUpdating = True



End Sub