Rick

Sub CellFont()
For Each cel In Selection
If cel.Font.Size = 16 Then
cel.Delete Shift:=xlUp
' cel.clearcontents
End If
Next
End Sub


Gord Dibben MS Excel MVP

On Tue, 15 Aug 2006 10:17:02 -0700, Rick .<
wrote:

Hi everyone,

I need to highlight multiple findings in excel for deletion, Is it possible?
Basically there are two format of data in one column and i need to find all
cells with font size 16 and delete it.

Many Thanks