Many Thanks Rob.

I went for the Environ("USERPROFILE") method, works great.

Thanks again.


Ron








"Rob van Gelder" wrote in
:

Try something like:

ThisWorkbook.SaveAs Filename:=fMyDocs & fName

Where fMyDocs might be initialised as:
fMyDocs = Range("m2").Value 'cell M2 = C:\Documents and
Settings\MyUserName\My Documents\
or
fMyDocs = Environ("USERPROFILE") & Application.PathSeparator & "My
Documents" & Application.PathSeparator