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