Thank you! That works but it takes a very long time per worksheet.
[EDIT] Trying the second one, thanks.
Thank you! That works but it takes a very long time per worksheet.
[EDIT] Trying the second one, thanks.
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
Last edited by emcdemc; 01-06-2009 at 08:49 PM.
You were close. You can't select the cells without selecting the worksheet, but there's no need to do either.
![]()
Sub White2Blank() Dim wks As Worksheet With Application .FindFormat.Clear .FindFormat.Interior.ColorIndex = 2 .ReplaceFormat.Clear .ReplaceFormat.Interior.ColorIndex = xlNone End With For Each wks In Worksheets wks.Cells.Replace What:="", Replacement:="", _ LookAt:=xlWhole, MatchCase:=True, _ SearchFormat:=True, ReplaceFormat:=True Next wks End Sub
Entia non sunt multiplicanda sine necessitate
Perfect thank you!
You’re welcome. Would you please mark the thread as Solved?
Click the Edit button on your first post in the thread
Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks