Thanks, the second one seems to work but how do I get it to cycle through each sheet in the workbook? Here is what I have:
Sub White2Blank()
Dim Ws As Worksheet
For Each Ws In Worksheets
Cells.Select
Application.FindFormat.Clear
Application.FindFormat.Interior.ColorIndex = 2
Application.ReplaceFormat.Clear
Application.ReplaceFormat.Interior.ColorIndex = xlNone
Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
Next Ws
End Sub
Bookmarks