spread sheet
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" 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
|