Delete Cells with a certain Color or Font

[FinancialAnalystKid]

I have to make a selection of cells and delete the contents of each cell that has:

Selection.Font.ColorIndex = 6
Selection.Font.Size = 10

Can someone help me with the VBA code for this?

Thanks

 

[Andrew Poulsom]

Is it?

Dim Cell as Range
For Each cell in Selection
   With Cell
      If .Font.ColorIndex = 6 And .Font.Size = 10 Then .Clear
   End With
Next Cell

 

[staticbob]

Hi,

Try this for a start . . .

Sub test()

Dim CellRange As Range
Set CellRange = Range("A1:A10")

For Each c In CellRange
    If c.Interior.ColorIndex = 6 And c.Font.Size = 14 Then
    c.Clear
    End If
Next c

End Sub

HTH
Bob

 

[FinancialAnalystKid]

Is it?

Dim Cell as Range
For Each cell in Selection
   With Cell
      If .Font.ColorIndex = 6 And .Font.Size = 10 Then .Clear
   End With
Next Cell

Thanks! I used ClearContents instead as I needed only the contents versus the color to be cleared.