If you mean that you want a separate worksheet for each day, then add another
loop like this:

Sub ADDSHEET()
For G = 31 To 1 Step -1
For S = 1 To 3
SHEETS.ADD.NAME = G & ".10.06_Shift" & S
Next S
Next G
END SUB

If you want the words as you showed them, then this would do it:
these next two lines will reduce the effort needed to change the code each
month:

Sub ADDSHEET()
Const MonYear = ".10.06"

For G = 31 To 1 Step -1
SHEETS.ADD.NAME ="Nights" & G & MonYear
SHEETS.ADD.NAME ="Lates" & G & MonYear
SHEETS.ADD.NAME ="Days" & G & MonYear
Next G

End Sub

"jkf" wrote:

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