spread sheet

[jkf]

at work we have a spread sheet that we need on a day to day basis, that is
easy enough , but now as it is a 24/7 buisness the powers that be have asked
for each spread sheet to include the 3 shifts ie Days 01.01.01 Lates
01.01.01. Nights 01.01.01

the formula i have been using for the day to day all shift log is

SUB ADDSHEET()

FOR G = 31 TO 1 STEP - 1

SHEETS.ADD.NAME = G & ".10.06"

NEXT G

END SUB

which works great i just ammend it to suit month and number of days in
month.

so question is how do i do it so it will include the 3 shifts for each day
of month

tia
jkf

 

[Tom Ogilvy]

SUB ADDSHEET()

FOR G = 31 TO 1 STEP - 1

SHEETS.ADD.NAME = G & ".10.06" & " Days"
SHEETS.ADD.NAME = G & ".10.06" & " Lates"
SHEETS.ADD.NAME = G & ".10.06" & " Nights"
NEXT G

END SUB


or
SHEETS.ADD.NAME = "Days " & G & ".10.06"
SHEETS.ADD.NAME = "Lates " & G & ".10.06"
SHEETS.ADD.NAME = "Nights " & G & ".10.06"

 

[JMB]

Try

Sub ADDSHEET()
Dim varShifts As Variant
Dim g As Long
Dim t As Long

varShifts = Array("Nights", "Lates", "Days")

For g = 31 To 1 Step -1
For t = LBound(varShifts) To UBound(varShifts)
Sheets.Add.Name = varShifts(t) & " " & g & ".10.06"
Next t
Next g
End Sub

 

[jkf]

thank you jmb and tom all sugestions worked a treat
jkf