Give this a whirl...

ActiveWorkbook.SaveAs Filename:=Thisworkbook.Path & "\Bookdoc " &
Format(Now, "yyyy-mm") & ".xls"

--
HTH...

Jim Thomlinson


"Pepestru" wrote:

At the end of a macro I save the worksheet. The following statement works for
me, but how should the code be to make this work on another users computer
with another directory structure? (I copied this statement from another
answer - my knowledge of VBA is very limited!)
I save with:
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Owner\My
Documents\VvEAH\Finance\2007\Bookdoc " & Format(Now, "yyyy-mm") & ".xls"
The question is actually: how do I get the path of the worksheet in use and
use that in the save statement?
Thanks,
Paul
P.S. I asked this question earlier, but cannot find it back.....!