Something like


ActiveWorkbook.SaveAs Worksheets("Sheet2").Range("A1") & activeworkbook.name

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"sungen99" wrote in
message ...

I have the path of the directory I wish to save to located on Sheet2
A1.

I know how to save a file directly but not how to get external data
from another worksheet. This is what I know how to do. Would someone
please tell me how to change it to do what I need.

Sub Done()

UserForm1.Show vbModeless
UserForm1.Repaint
ActiveWorkbook.Save
Unload UserForm1

ActiveWorkbook.Close SaveChanges:=False


End Sub


--
sungen99
------------------------------------------------------------------------
sungen99's Profile:
http://www.excelforum.com/member.php...fo&userid=9144
View this thread: http://www.excelforum.com/showthread...hreadid=515297