Creates a new style and adds it to the list of styles that are available for the current workbook. Returns a Style object.
Syntax
expression.Add(Name, BasedOn)
expression Required. An expression that returns a Styles object.
Name Required String. The new style name.
BasedOn Optional Variant. A Range object that refers to a cell that’s used as the basis for the new style. If this argument is omitted, the newly created style is based on the Normal style.
Remarks
If a style with the specified name already exists, this method redefines the existing style based on the cell specified in BasedOn. The following example redefines the Normal style based on the active cell.
ActiveWorkbook.Styles.Add Name := "Normal", _
BasedOn := ActiveCell