software

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 = quot;Verdanaquot;
End With

Next sh
End Sub

quot;Stevequot; wrote:

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


How many sheets are you talking about?--
dalsx1
------------------------------------------------------------------------
dalsx1's Profile: www.excelforum.com/member.php...oamp;userid=33041
View this thread: www.excelforum.com/showthread...hreadid=528560