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