Saving file to specific directory

[sungen99]

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

 

[Bob Phillips]

Something like


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

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)