UOBT,
Try something like this . . .
Sub CopyData()
Dim Rng As Range
For Each Rng In Range("A1", "A10")
If Rng.Interior.ColorIndex = 36 Then
Rng.Copy
Rng.Offset(0, 2).PasteSpecial Paste:=xlPasteValues
End If
Next Rng
End Sub
You will need to change the copy destination to fit your needs.
----
Regards,
John Mansfield
http://www.pdbook.com
"uobt" wrote:
i need a vba script that will select any cell interiorcolor = 36
and then copy special paste value?