Open File / Copy Sheet / Break Links / Save As

Hello all,

I need some help with a macro, so if you have a few minutes, please help:
- i have the following macro in a worksheet and what is does is: it opens a workbook "XXX", update the links, copy the sheet "ABC" to a new file, add 7 days to the date found on cell J7, break links and save the new file on desktop.
- return to the original file, copy again the sheet ABC to a new workbook, add 14 to the date in J7, break links and save the new file on desktop.

Everything is working just fine when executed normally, but when i move the code to Personal.xlsB, the resulted dates are not correct.
I suspect that beeing executed fro Personal.xlsb workbook, i should declare some other variables?

Could you please help?
Thank you so much in advance.


This is the code:

Please Login or Register  to view this content.

Hi

Although Excel displays dates in whatever format you prefer, the actual cell contents are a numeric value of 'days'.
So you could simplify your code by replacing...
Range("J7").Value = DateAdd("d", 7, CDate(Range("J7")))
with..
[J7] = [J7] + 7

and similarly..
Range("J7").Value = DateAdd("d", 14, CDate(Range("J7")))
with..
[J7] = [J7] + 14

zeddy

Thank you for your answer zeddy. I made the changes you suggested.
Right now i am trying to see, why is that when i run the code from the Visual Basic Editor everything is ok, but when i run it from personal workbook, the results are not correct...