Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Group sheets together
Sub Groupsheets()
   Dim stNames(1 To 2) As String
   Dim i As Integer
   stNames(1) = "Sheet2"
   stNames(2) = "Sheet3"
   Worksheets(stNames(1)).Select
   For i = 1 To 2
      Worksheets(stNames(i)).Select Replace:=False
   Next i
End Sub