Paul

You need to enter in the spreadsheet something when the
macro has been run. This will have to be deleted in a
Before_Print or Before_Save macro.

Just change the ranges and sheet names to this.
Sub MyCopy()
Dim done, MyDate As Date
Worksheets(2).Select
MyDate = Range("A1")
done = Range("A2").Value
'Exit if it has been done
If Not IsEmpty(done) Then
Exit Sub
End If
If MyDate = #10/1/2003# And MyDate <= #12/31/2003#
Then
With Sheets("sheet1")
Range("g8:g44").Value = Range("A8:A44").Value
End With
End If
Range("A2").Value = "Y"
End Sub

sub Before_Print()
Range("A2").clearcontents
End Sub

Regards
Peter

-----Original Message-----
I would like a macro to automatically run if the date is
anywhere in a given 8 week period. For example, if the
date is greater then October 1, I would like the macro to
run and I only want it to run once.

The code I have put in place is:

If Date=October1 then
Sheets("FORECAST").Select
Range("AA8:AA44").Select
Selection.Copy
Range("Z8:Z44").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:A3").Select
Application.CutCopyMode = False
Else End

Can someone review and let me know if this is right.
Also,
how do I only get it to run once?
.