clear cells

[Svgmassive]

i am trying to clear cells in a range if the interior color index=3 without looping through the range. can this be done or am i stuck with looping through the cells?
thanks

 

[mvptomlinson]

You might try something like:

Sub Macro1()
Application.FindFormat.Font.ColorIndex = 3
Range("A:A").Replace What:="", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
    ReplaceFormat:=False
End Sub

Change Range("A:A") to your range, of course.