You could try in VBA:

ActiveWorkbook.SaveAs CurDir & "filename"

Not sure if this is what your after


--
nickysquawkes
------------------------------------------------------------------------
nickysquawkes's Profile: http://www.excelforum.com/member.php...o&userid=30630
View this thread: http://www.excelforum.com/showthread...hreadid=502418