Hi, i have put together some code where i am checking for text and the color of the cell
On the bolded line i am getting the error message
"Object doesn not support this property or method"
Can anyone see where i am making an error?
Thanks
Seamus
With ActiveSheet
R = .Range("C" & Rows.Count).End(xlUp).Row
Range("B2").Select
Selection = "=IF(COUNT(MATCH(F2,'Sophis Paris'!A:A,0),MATCH(F2,'Sophis US'!A:A,0),MATCH(F2,'Sophis HK'!A:A,0))>0,""match"",""no match"")"
.Range("A2:B2").Copy .Range("A2:B" & R)
End With
For Each cell In Range("A2:A10000")
Range("A2").Select
If cell.Offset(0, 1).Selection = "Match" And cell.Offset(0, 2).Interior.ColorIndex = 3 Then
cell.Offset(0, 2).Interior.ColorIndex = 4
End If
Next cell
End Sub
Open in new window
HTH
Regards,
Zack Barresse