Add Method (Styles Collection) Example

This example defines a new style based on cell A1 on Sheet1.

Worksheets("Sheet1").Activate
ActiveWorkbook.Styles.Add Name:="myNewStyle", _
    BasedOn:=ActiveSheet.Range("A1")

This example defines a new style that includes only font properties.

With ActiveWorkbook.Styles.Add(Name:="theNewStyle")
    .IncludeNumber = False
    .IncludeFont = True
    .IncludeAlignment = False
    .IncludeBorder = False
    .IncludePatterns = False
    .IncludeProtection = False
    .Font.Name = "Arial"
    .Font.Size = 18
End With