one way:

Public Sub CopySheetToNewWorkbook()
Sheets("Sheet1").Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:="test.xls"
.Close
End With
Application.DisplayAlerts = True
End Sub


In article ,
"vbastarter" wrote:

Looks like sheet dont have save property. I dont want to save the entiire
workbook but Just one sheet(sheet1). How is that possible ?
Thx