Hi Neil,

Fogive the date/time stamp on my previous post.

I tested my assertion and, omitting to restore the correct values, was hoist
by my own petard!

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Nigel,

Is there any chance that the Dater variable has inadvertently been
reproduced as Date somewhere in your code?

If the code icludes, for example, something like:

Date = Range("B32").Value

then the system date would be changed if the value of B32 was other than
the system date. Additionally, depending on the value o f B32, your time
might be adjusted by 1 (2?) hours to allow for local ime changes.


---
Regards,
Norman



"Nigel" wrote in message
...
Hi,
i have a now written a macro with help from this site ( thanks everyone )
that saves my active sheet as a separate workbook in a location based on
information entered on the sheet. ( a folder on the server with monthly
folders inside ).my problem is now this. the macro looks at the date
required
for the invoice to determine where this sheet will be saved. ( we also
post
invoice and pend them for the next month so we enter a forcasted month
and
save it automatically to the month folder). but if i enter a forcasted
date
that is in front of todays date, the macro changes the computer date to
that
date entered on the invoice and puts the time back by 2 hours. Does
nanybody
have any ideas???
here is my macro:

Sub saveassheet()

Namer = ActiveSheet.Name
Location = "S:\Invoicing & Sales\Invoices April 05 - March 06"
yearly = Format(ActiveSheet.Range("h16").Value, "yy")
Dater = Format(ActiveSheet.Range("h16").Value, "mmmm")
Clienter = Range("B23").Value
detailer = Range("B32").Value

ActiveSheet.Copy
ActiveWorkbook.SaveAs Location & "\" & Dater & " " & yearly & "\" & Namer
&
" " & Clienter & " " & detailer

End Sub

This is causing me huge confusion.

thanks in advance,

Nigel