Dear Team,
I need outside border of table white and alternate rows having interior color RGB (211,217,,222)
Please help with the following vba code.
Sub All_Tables_All_Sheets_New()
Dim T As ListObject
Dim c As Long
Dim i As Long
For i = 1 To Sheets.Count
For Each T In Sheets(i).ListObjects
With T.DataBodyRange
c = .Columns.Count
.Interior.Color = RGB(234, 237, 239)
.Font.Size = 11
.Name = "Calibri"
.Font.Color = RGB(89, 89, 89)
.Columns(1).Interior.Color = RGB(0, 39, 77)
.Columns(1).Font.Color = vbWhite
.Columns(1).Font.Bold = True
.Rows(1).Interior.Color = RGB(0, 39, 77)
.Rows(1).Font.Color = vbWhite
.Rows(1).Font.Bold = True
.Rows.Borders.LineStyle = xlContinuous
.Rows.Borders.Color = vbWhite
.Rows.Borders.Weight = 3
End With
Next
Next
End Sub
Kindly suggest the same to run the command.
Thank you in anticipation
I need outside border of table white and alternate rows having interior color RGB (211,217,,222)
Please help with the following vba code.
Sub All_Tables_All_Sheets_New()
Dim T As ListObject
Dim c As Long
Dim i As Long
For i = 1 To Sheets.Count
For Each T In Sheets(i).ListObjects
With T.DataBodyRange
c = .Columns.Count
.Interior.Color = RGB(234, 237, 239)
.Font.Size = 11
.Name = "Calibri"
.Font.Color = RGB(89, 89, 89)
.Columns(1).Interior.Color = RGB(0, 39, 77)
.Columns(1).Font.Color = vbWhite
.Columns(1).Font.Bold = True
.Rows(1).Interior.Color = RGB(0, 39, 77)
.Rows(1).Font.Color = vbWhite
.Rows(1).Font.Bold = True
.Rows.Borders.LineStyle = xlContinuous
.Rows.Borders.Color = vbWhite
.Rows.Borders.Weight = 3
End With
Next
Next
End Sub
Kindly suggest the same to run the command.
Thank you in anticipation