I recorded this and suitably tarted up it works fine when run independently.

I did notice that my recorded code stuck a Find in but I removed that and it still workled okay.

Apart from the plethora of formats, what is different about mine?


Dim cell As Range
With Application
        With .FindFormat
            .Clear
            .Interior.ColorIndex = 35
        End With
        With .ReplaceFormat
            .Clear
            .Interior.ColorIndex = 19
        End With
    End With
Cells.Replace What:="", _
                  Replacement:="", _
                  LookAt:=xlPart, _
                  SearchOrder:=xlByRows, _
                  MatchCase:=False, _
                  SearchFormat:=True, _
                  ReplaceFormat:=True