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