PDA

View Full Version : Solved: Change Default Font for New Workbook



mferrisi
12-13-2010, 08:42 AM
I am creating a new workbook.

Set wb = Workbooks.Add

I want all of the fonts for all of the sheets for the new workbook will be Calibri with size ten.

Is there a way to make this the default for the new workbook without having to do it sheet by sheet?

thanks,

M

Tinbendr
12-13-2010, 09:45 AM
Dim WB As Workbook
Set WB = Workbooks.Add
With WB
With .Styles("Normal")
.Font.Name = "Calibri"
.Font.Size = "10"
End With
End With


HTH,
David