Styles Object (Excel)
A collection of all the Style objects in the specified or active workbook.
Use the Styles property to return the Styles collection. The following example creates a list of style names on worksheet one in the active workbook.
For i = 1 To ActiveWorkbook.Styles.Count Worksheets(1).Cells(i, 1) = ActiveWorkbook.Styles(i).Name Next
Use the Add method to create a new style and add it to the collection. The following example creates a new style based on the Normal style, modifies the border and font, and then applies the new style to cells A25:A30.
With ActiveWorkbook.Styles.Add(Name:="Bookman Top Border") .Borders(xlTop).LineStyle = xlDouble .Font.Bold = True .Font.Name = "Bookman" End With Worksheets(1).Range("A25:A30").Style = "Bookman Top Border"
Use Styles(index), where index is the style index number or name, to return a single Style object from the workbook Styles collection. The following example changes the Normal style for the active workbook by setting its Bold property.