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

I know how to save a file directly but not how to get external dat
from another worksheet. This is what I know how to do. Would someon
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 Su

--
sungen9
-----------------------------------------------------------------------
sungen99's Profile: http://www.excelforum.com/member.php...nfo&userid=914
View this thread: http://www.excelforum.com/showthread.php?threadid=51529

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