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.