Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Grouping Worksheets

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