How to write vba to evaluate the text font and size on an active cell range?

[Paul]

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.

 

[Tom Ogilvy]

Do you have xl2003 or xl2002. You can use Edit=>Find which supports
searching for a format. Turn on the macro recorder while you do it manually
to get the basic code.

Then look at Help on FindNext to see how to find multiple occurances.

 

[Guest]

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