Sub GroupSheets() Dim asNames(1 To 3) As String Dim i As Integer asNames(1) = "Jan 2007" asNames(2) = "Mar 2007" asNames(3) = "May 2007" Worksheets(asNames(1)).Select For i = 2 To 3 Worksheets(asNames(i)).Select Replace:=False Next i End Sub