Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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