Very new to Excel programming and trying to develop a code snippet I can use
in differant ways. I need to examine the Cells in Column A for the fontstyle
Italics or font size and if it matches the criteria delete them.

This doesn't work:
Dim cells As Object
Dim rng As Range

Set rng = Range("A1:A1000")
For Each cells In rng
If rng.cells.Font.FontStyle = "Italic" Then
rng.cells.Value = ""
End If
Next cells

What would?