VBA to select all sheets after number 5 to end of workbook then Paste format

[Kimpnc]

I currently use an array of named sheets but sometimes other names may be present and then on others occasions not all these will be there.
how do I change

Sheets(Array("WORK", "WOLV", "WENT", "WEB", "STKE", "SHEF", "SCUN", "SAX", "SAW", _
"ROTC", "LICH", "LEED", "IPS", "HULL", "HIT", "GATE", "CHET", "BROU", "BRAD", _
"BARN", "AZON", "A1")).Select
Sheets("WORK").Activate
Range("Q1").Select

With something which will count the number of sheets After sheet 5 [first 5 sheets are one with the formatting to be pasted to these named sheets and 4 with calculations] and then apply the formulas and formats from the first sheet.

There are 3 different functions/ formatting types on each sheet so I run this 3 times within the VBA to produce the monthly balance sheet.

Thanks

 

[JLGWhiz]

Not sure what you are doing, but if you want to create a loop for all the sheets after sheet 5 Then

Dim i As Long
For i = 6 To ThisWorkbook.Sheets.Count
    With Sheets(i)
    'Do your stuff here, use the period in front of Rows, Columns, Range and Cells to connect the statement to the parent sheet
    End With
Next

This will increment from sheet 6 onward through the last sheet.