Classe TableStyles (Excel VBA)

A classe TableStyles representa estilos que podem ser aplicados a uma tabela. Para usar uma variável de classe TableStyles, ela primeiro precisa ser instanciada por exemplo

Dim tss as TableStyles
Set tss = ActiveWorkbook.TableStyles

Add

Cria um novo objeto TableStyle e o adiciona à coleção.

Add (TableStyleName)

TableStyleName: O nome do estilo da tabela.

Dim strTableStyleName As String: strTableStyleName = 
Dim tblsty As TableStyle
Set tblsty = ActiveWorkbook.TableStyles.Add(TableStyleName:=strTableStyleName)

Count

Retorna o número de objetos na coleção. Somente leitura Long.

Dim lngCount As Long
lngCount = ActiveWorkbook.TableStyles.Count

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

Dim tblsty As TableStyle
Set tblsty = ActiveWorkbook.TableStyles(Index:=1)