Hi Don,

See my apology and explanation posted 5 weeks ago!



---
Regards,
Norman



"Don Guillett" <donaldb@281.com> wrote in message
news:ercRSZuuFHA.2880@TK2MSFTNGP12.phx.gbl...
> Norman, Please change your date
>
> --
> Don Guillett
> SalesAid Software
> donaldb@281.com
> "Norman Jones" <normanjones@whereforartthou.com> wrote in message
> news:OTL93H0nFHA.1204@tk2msftngp13.phx.gbl...
>> 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
>>
>>
>
>