Code to delete contents of cell with a particular color

[banjoe]

Is there some VBA code that will go through a worksheet to delete all cell contents which are colored a particular color? For instance: .COLOR = 16777164.
Joe

 

[John Davis]

Maybe:

Sub banjoe()
Dim rcell As Range

For Each rcell In Sheets("Sheet1").UsedRange

    If rcell.Interior.Color = 16777164 Then rcell.ClearContents
    
Next rcell

End Sub

 

[banjoe]

THANKS so much John. I'll give this a try. I appreciate your help. Banjoe.

 

[banjoe]

John:
Thanks again for this code. I applied to my spreadsheet and it works great. This will save me alot of time each month during closing. thanks alot!
Banjoe.

 

[John Davis]

You're welcome. Glad to help out, and thanks for the feedback.