Home page
CREATE A DATE AND TIME SCHEDULE
Dim i As Integer 'i represents hours
Dim j As Integer ' j represents days
Dim NumOfDays As Integer
Dim myStr
Dim mydate As Date
mydate = "june 01, 2002" 'ENTER START DATE
myStr = Format(mydate, "dddd, mmm d yyyy")
NumOfDays = 100 'ENTER NUMBER OF DAYS
'Create time column
i = 2
For j = 1 To NumOfDays
Range("B" & i).Select
ActiveCell.FormulaR1C1 = "8:00 AM" 'ENTER BEGINNING TIME (12 IS AVAILABLE TIME SLOTS PER DAY)
Selection.AutoFill Destination:=Range("B" & i & ":B" & i + 12), Type:=xlFillSeries
Range("B" & i & ":D" & i + 12).Select
i = i + 13
Next j
'Create Date column
i = 2
For j = 1 To NumOfDays
Range("A" & i).Select
myStr = DateAdd("d", j, mydate)
ActiveCell.FormulaR1C1 = myStr
Selection.AutoFill Destination:=Range("A" & i & ":A" & i + 12), Type:=xlFillCopy
Range("A" & i & ":A" & i + 12).Select
i = i + 13
Next j
End Sub


THIS MARCO CREATES A COLUMN OF HYPERLINKS TO ASSOCIATED WORKSHEETS
In the example below modify 1-column 2-number of rows and 3-modify Slip2...
Dim i As Integer
For i = 2 To 246
Range("C" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Slip2!B" & i
Next i