A hint:
For each IC in (DictColors)
   Application.FindFormat.Interior.Color = IC

  Set Cel = UsedRange.Find(*, SearchFormat=True) 
  Do While Not Cel is Nothing
      Cel.Interior.Color = xlNone
      Set Cel = FindNext(Cel)
  Loop
Next IC