I have a workbook with several sheets. I inherited this workbook and it has
multiple fonts. I want code to change all fonts to a common font, say
Verdana or Arial but I want all other formatting to stay the same...like font
size, borders, etc.

Figured it out I think...this seems to work:


Sub set_fonts()

Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
sh.Activate

Cells.Select
With Selection.Font
.Name = "Verdana"
End With

Next sh
End Sub




"Steve" wrote:

I have a workbook with several sheets. I inherited this workbook and it has
multiple fonts. I want code to change all fonts to a common font, say
Verdana or Arial but I want all other formatting to stay the same...like font
size, borders, etc.

How many sheets are you talking about?


--
dalsx1
------------------------------------------------------------------------
dalsx1's Profile: http://www.excelforum.com/member.php...o&userid=33041
View this thread: http://www.excelforum.com/showthread...hreadid=528560