jfk posted in at least 3 forums and got *duplicate* and replies in all 3 :)

If only the news servers where connected in real time :)

Steve



On Sun, 01 Oct 2006 19:29:04 +0100, Dave Peterson
wrote:

Maybe you can use something like this:

Option Explicit
Sub AddSheets()

Dim iCtr As Long
Dim myStartDate As Date
myStartDate = Application.InputBox(Prompt:="Please Enter a start
date", _
Default:=Format(Date - Day(Date) + 1, "mmmm dd,
yyyy"), _
Type:=1)
If Year(myStartDate) < 2006 Then
Exit Sub
End If
For iCtr = DateSerial(Year(myStartDate), Month(myStartDate), 1) _
To DateSerial(Year(myStartDate), Month(myStartDate) + 1,
0)
Worksheets.Add.Name = Format(iCtr, "dd.mm.yy")
Next iCtr
End Sub


jkf wrote:

first off i hope this is the right place for this question

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