I have some code that create 5 different works sheets "sheet 1", "Sheet 2",...... on each of these sheets I want to copy a header. I also have a number of variables that refer to each individual sheet, so Check1, Check2,.....

Could I use an array or a simple loop to create these sheets to avoid replicating all of the data whilst maintain my individual variable references??

If check1 Is Nothing Then Worksheets.Add(After:=Sheets(Worksheets.Count)).Name = "Year 1"
    '''Copy header and formatting to new sheet
    Sheets(2).Range("A1:A2").EntireRow.Copy
    With Sheets("Year 1").Range("A1")
        .PasteSpecial xlPasteColumnWidths
        .PasteSpecial xlPasteAllUsingSourceTheme
    End With
If check2 Is Nothing Then Worksheets.Add(After:=Sheets(Worksheets.Count)).Name = "Year 2"
If check3 Is Nothing Then Worksheets.Add(After:=Sheets(Worksheets.Count)).Name = "Year 3"
If check4 Is Nothing Then Worksheets.Add(After:=Sheets(Worksheets.Count)).Name = "Year 4"
If check5 Is Nothing Then Worksheets.Add(After:=Sheets(Worksheets.Count)).Name = "Year 5"

Thanking you in advance

Jim