Thanks for the script. But how do I use it?

"Gord Dibben" wrote:

John

Sub Date_Increment()
''increment a date in A4 across sheets
Dim myDate As Date
Dim iCtr As Long
myDate = DateSerial(2005, 12, 27)
For iCtr = 1 To Worksheets.Count
With Worksheets(iCtr).Range("A4")
.Value = myDate - 1 + iCtr
.NumberFormat = "mm/dd/yyyy"
End With
Next iCtr
End Sub


Gord Dibben Excel MVP

On Mon, 26 Dec 2005 23:05:02 -0800, "John"
wrote:

Thanks, I will :)

"Max" wrote:

Sorry for the mis-interp, John !
I don't have further ideas to offer here

Do hang around awhile for insights from others
--
Rgds
Max
xl 97
---
Singapore, GMT+8
xdemechanik
http://savefile.com/projects/236895
--