MACRO to clear the contents (but preserve formatting) of all cells of a specific color???

[apurcell]

Hello,
I would like to create a macro that will clear the contents of all cells within my worksheet that are of a specific color. My Range is A1:AN400. I want to preserve the formatting, just delete the numbers within the cell.
The RGB is
Red 171
Green 255
Blue 197
Hex: #ABFFC5
I would like to have a button for this macro so that I click it, and it clears all the data within the cells that are this color.

Thank you!

 

[mrshl9898]

Is the cell color set manually?

Sub clearcells()

Dim myrange As Range

Set myrange = Range("A1:AN400")

For Each cell In myrange
If cell.Interior.Color = RGB(171, 255, 197) Then
cell.ClearContents
End If
Next cell

End Sub

 

[apurcell]

This worked perfectly!
Thank you @mrshl9898

 

[castilian07]

I am using the same formula but it is not working.

Sub ClearCells()

Dim myrange As Range

Set myrange = Range("A1:AN2000")

For Each cell In myrange
If cell.Interior.Color = 19 Then
cell.ClearContents
End If
Next cell

End Sub

 

[MARK858]

Your Interior.Color being 19 looks more like ColorIndex rather than Color.

What happens with

Sub ClearCells()

    Dim myrange As Range, cell As Range

    Set myrange = Range("A1:AN2000")

    For Each cell In myrange
        If cell.Interior.ColorIndex = 19 Then
            cell.ClearContents
        End If
    Next cell

End Sub

 

[Rick Rothstein]

You can also do this without using a loop (probably will be faster for larger ranges). Here I'll assume that 19 was a ColorIndex value like @MARK858 did...

Sub ClearCells()
  Application.FindFormat.Clear
  Application.FindFormat.Interior.ColorIndex = 19
  Range("A1:AN2000").Replace "", "", , , , , True, False
  Application.FindFormat.Clear
End Sub