Select fill colors in a workbook, change to another color

Marcia · #4 01-29-2023, 06:48 AM

Quote:

Originally Posted by Guessed

It would be a lot faster to customise the color palette and apply that to your cells. In the future you just change the color in the palette.

This macro has two parts. The first part is searching all cells to find the RGB values and assign the first accent color. The final line changes the accent color in the palette.

Code:

Sub RecolorMe()
  Dim iCol As Long, aCell As Range, aWS As Worksheet
  For Each aWS In ActiveWorkbook.Sheets
    For Each aCell In aWS.UsedRange.Cells
      If aCell.Interior.Color = RGB(220, 230, 241) Then
        aCell.Interior.ThemeColor = xlThemeColorAccent1
      End If
    Next aCell
  Next aWS
  
  'Change the theme color
  ActiveWorkbook.Theme.ThemeColorScheme.Colors(msoThemeAccent1) = RGB(253, 233, 217)
End Sub

Andrew, I tried this code and it works but it keeps on running unless Esc is pressed. A debug error appears on the "End If" line. Thank you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How To Select and Change Color with Keyboard Shortcuts?	abrogard	Word	12	06-04-2022 12:18 PM
Allow Cell Background Fill/Text Color Change while Protected Sheets are Grouped	RaudelJr	Excel	5	04-18-2017 11:11 PM
Change accent theme color used as shape fill (not RGBs)	preetidb	PowerPoint	4	12-30-2013 03:22 PM
Select a range in one one workbook while working in other workbook	Slow&Steady	Excel	1	02-21-2010 03:34 AM
Change Automatic Fill Color	Leanne	PowerPoint	1	11-04-2009 08:34 PM