Finding and replacing RGB's in vba

[BJM23]

Does anyone know if there is a way to find (or look up) an existing RGB on a page and replace it with another? The number of cells that have the old RGB is always changing so this is why I need to look it up on several worksheets.

Thanks.

 

[shg]

RGB? You mean the cell fill color?

What version of Excel are you using?

 

[VoG]

Maybe something like

Sub Changecolor()
Dim c As Range
For Each c In Selection
    If c.Interior.Color = RGB(255, 0, 0) Then c.Interior.Color = RGB(0, 255, 0)
Next c
End Sub

 

[BJM23]

Thank you Vog, is there a way to search the entire sheet for this?

I am using excel 2007.

 

[VoG]

Try this

Sub Changecolor()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.Interior.Color = RGB(255, 0, 0) Then c.Interior.Color = RGB(0, 255, 0)
Next c
End Sub