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" <Nigel@discussions.microsoft.com> wrote in message
news:C2904EEA-8CDB-4421-9D85-C033B4B71BB1@microsoft.com...
> 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