Here is another way to do it.

Sub test2()
'
' test2 Macro
' Macro recorded 4/14/2006 by Chuck Fisher
'


Dim bkOld as Workbook, bkNew as Workbook
Dim sh as Worksheet
set bkOld = Workbooks("OD Margin Working Worksheet.xls")
set sh = bkOld.Worksheets("Land")
set bkNew = Workbooks.Add()
bkNew.SaveAs _
Filename:= _
"I:\Accounts\Active Accounts\Office" & _
" Depot\Posted Monthly Margin Report\" & _
"Office Depot.xls", _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
sh.Columns("A:P").copy _
Destination:=bkNew.worksheets(1).Range("A1")
bkNew.Worksheets(1).Name = "Land"
bkOld.Sheets("lot").Columns("A:P").Copy _
Destination:=bkNew.worksheets(2).Range("A1")
bkNew.Worksheets(2).Name = "Lot"
bkOld.Sheets("Snow").Columns("A:P").Copy _
Destination:=bkNew.Worksheets(3).Range("A1")
BkNew.Worksheets(3).Name = "Snow"
bkOld.Activate
End Sub

--
Regards,
Tom Ogilvy



"ChuckF" wrote:

Yes they do. I:\ is the "network drive" that we all share.