Check font of a cell

[Subodh]

I want to check in a range of cells, the font of the cells. If the
font is not Times new roman
it makes the font to times new roman
and the font size to 10
also, if the font (Times New Roman) is not installed in the system
it should give a message and/or a notice.
Any tips will be appreciated
Thanks in advance.

 

[Matthew Dyer]

I want to check in a range of cells, the font of the cells. If the
font is not Times new roman
it makes the font to times new roman
and the font size to 10
also, if the font (Times New Roman) is not installed in the system
it should give a message and/or a notice.
Any tips will be appreciated
Thanks in advance.

assuming you've already defined your range as myrange-

on error goto err1
with myrange.font
..name = "Times New Roman"
..size = 10
end with
on error goto 0
err1:
msgbox("Times New Roman is not an available font")