Select a specific amount of sheets in a workbook with a code

[jordan11221992]

Hello. I have a work book with a sheet for every day of my companies 12 periods of the year by using
Sub MakeYear()
Dim SH As Worksheet
Dim D As Date, Y As Long
Set SH = ActiveSheet
Y = Val(InputBox("Year:"))
If Y < 2000 Then Exit Sub
If Y > 2100 Then Exit Sub
Application.ScreenUpdating = False
For D = DateSerial(Y, 1, 1) To DateSerial(Y, 12, 31)
Application.StatusBar = D
SH.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Range("A1").Value = D
ActiveSheet.Name = Format(D, "mmm dd")
Next
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

Is it possible to select certain sheets (12.28.2020 - 1.31.2021) and move them to a new work book without selecting all the sheets or moving one by one?

 

[StephenCrump]

Or could i put
First=sheets("sheet1")
Last=sheets("sheet10")
To move those 1-10 days(sheets) into a seperate work book?

Have you tried it? Why not create a dummy workbook and have a play with code variations - you'll learn much more that way.