Format Table

[Xirom431]

Hi,

I have 50 WS in a workbook. I would like to format Row 1 Column A to AI to Calibri Font size 8 and highlight yellow color of all WS. Also, how do I do that to every other row if needed? Thanks for the help.

 

[JamesW]

Hi there,

Try:

Sub test()
    wsCount = Application.Sheets.Count
    For i = 1 To wsCount
        Sheets(i).Tab.ColorIndex = 6
        lRow = Sheets(i).Range("A1").End(xlDown).Row
        For j = 1 To lRow Step 2
            With Sheets(i).Range("A" & j & ":AI" & j).Font
                .Name = "Calibri"
                .Size = 8
            End With
        Next
    Next
End Sub

Edit: Forgot to add the tab colour change - I assume you mean set the tab colour to yellow?