VBA Select first 4 sheets

[Peng_Lai]

Hi guys,

Got a question about VBA. How can I select first 4 sheets using VBA? I know I can do ActiveWorkbook.Sheets(1)...but how can I select first 4 sheets but not all of them? Thank you!

 

[VBA Geek]

worksheets(array(1,2,3,4)).select

 

[Peng_Lai]

worksheets(array(1,2,3,4)).select

Thank you VBA Geek! Another one, how can I select first (n-1) sheets? For example, if I have 5 sheets in total. I want to select first 4. If I have 6 sheets in total, I want to select first 5. Can I use something like Sheets.Count?

Thank you!

 

[Peter_SSs]

Another one, how can I select first (n-1) sheets? For example, if I have 5 sheets in total. I want to select first 4. If I have 6 sheets in total, I want to select first 5.

Try ..

Sub SelectAllButLast()
  Dim i As Long
  
  Sheets(1).Select
  For i = 2 To Sheets.Count - 1
    Sheets(i).Select Replace:=False
  Next i
End Sub

 

[VBA Geek]

Thank you VBA Geek! Another one, how can I select first (n-1) sheets? For example, if I have 5 sheets in total. I want to select first 4. If I have 6 sheets in total, I want to select first 5. Can I use something like Sheets.Count?

Thank you!

you can do it as Peter suggested, and also like this:

Worksheets(Evaluate("TRANSPOSE(ROW(1:" & ThisWorkbook.Worksheets.Count - 1 & "))")).Select

 

[Peng_Lai]

you can do it as Peter suggested, and also like this:

Worksheets(Evaluate("TRANSPOSE(ROW(1:" & ThisWorkbook.Worksheets.Count - 1 & "))")).Select

Thank you!