Name "C:\ABC.xls" as "C:\DEF.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Workbooks("Dialup.xls").Sheets("Sheet1").Cells(1, 1) & ".xls"
Name "C:\ABC.xls" as "C:\DEF.xls"
Workbooks.Add.name="dialup.xls"
Workbooks.Add
ActiveWorkbook.SaveAs filename:= "Dialup.xls"