Changing the table style using VB.

Changing the table style using VB.

Excel divides this into three section styles Light/Medium and Dark.

Light Table Styles

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight1"

Change numeric 1 till 21

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight21"

 

Medium Table Styles

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium1"

  Change numeric 1 till 28

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium28"

Dark Table Styles

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark1"

Change numeric 1 till 11

ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleDark11"