steve:

try it,

Sub test()
rpath = "P:\Projects\Jobs\"
rname = Split(ThisWorkbook.Name, ".")
fpath = rpath & rname(0)
fname = fpath & "\" & Date & ".xls"
If Dir(fpath, vbDirectory) = "" Then
MkDir fpath
End If
Set wbk = Workbooks.Add
ThisWorkbook.Worksheets("Sheet1").Copy _
After:=wbk.Worksheets("Sheet1")
wbk.SaveAs fname
End Sub

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"steve" wrote:

Using a button:

1) copy a sheet into a new workbook
2) save the workbook into the following directory:

"P:\Projects\Jobs\....

the next folder will be the same name as the original workbook

is this possible?

i also want to name the new workbook with today's date.

i appreciate any help

thanks,
steve