Formating Macro
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
.
|