Sub Change_Font()
Dim wk as worksheet

For Each wk in ThisWorkbook.Worksheets
wk.Cells.Font.Name = "Arial"
Next wk

end Sub

-----Original Message-----
I want to apply this macro to all the workshhets in a
workbook.

Sub Change_Font()
Cells.Font.Name = "Arial"

End Sub

How would I code this to change all the cells in all the
worksheets?

Many Thanks,

Brady Snow

McKinney, Texas
.