Paul,

Something like:

For Each cell In Range("A1:A200")
If cell.Font.Name = "MS Sans Serif" And cell.Font.Size = 14 Then
cell.Interior.ColorIndex = 5
...... your code
End If

Next

"Paul" wrote:

I have a web page download consists of the contact information like Name,
address and city etc. I opened it with the Excel and the information is
organized in the way that is impossible to import to an Access database.
However the "Name" is shown in a font and size differnt from other
information and this is only indication to seperate individual contact
information. How to write a vba to evaluate the test font and size on an
active cell range? Thanks.