Microsoft Office Forums - View Single Post - [Solved] Select fill colors in a workbook, change to another color

Marcia · 01-29-2023, 07:26 AM

Here's the code:

Code:

Sub blah()
With Application
  .ReplaceFormat.Clear
  .FindFormat.Clear
  .FindFormat.Interior.Color = RGB(220, 230, 241)
  .FindFormat.Locked = True
  .FindFormat.FormulaHidden = False
  .ReplaceFormat.Interior.Color = RGB(253, 233, 217)
  Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True, FormulaVersion:=xlReplaceFormula2
  .ReplaceFormat.Clear
  .FindFormat.Clear
End With
End Sub

Thank you for the code p45cal and the screenshot of the Find/workbook setting. Had there been no picture, I wouldn't have understood your next instructions about "within worbkbook."
The code perfectly works in all the sheets except from some random cells that had not changed colors. I'm trying to find the cause of the different result.