SaveAs worksheets
 

Is there a way to save multiple worksheet as a new wookbook without having
the vba modules included with the save?

I currently am doing the following, but this saves the vba modules as well
as the
worksheets. I just want to save the work sheets.

Private Sub Save_Dialog()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "Excel", "*.xls; *.csv; *.csv", 2
If .Show = -1 Then 'user pressed action button.
.Execute
'Application.ActiveWorkbook.SaveCopyAs (vrtSelectedItem)
Else 'The user pressed Cancel.
End If
End With
Set fd = Nothing
End Sub

SaveAs worksheets
 

Hi Niek,

To create a new workbook, try:

'=============
Public Sub Tester()
ActiveWorkbook.Worksheets.Copy
End Sub
'<<=============

Only code in the sheet modules ot the ThisWorkbook
modules will be carried to the new workbook.

If your intention is to delete all code, see Chip Pearson at:

Programming To The Visual Basic Editor
http://www.cpearson.com/excel/vbe.htm


---
Regards,
Norman



"miek" wrote in message
...
Is there a way to save multiple worksheet as a new wookbook without having
the vba modules included with the save?

I currently am doing the following, but this saves the vba modules as well
as the
worksheets. I just want to save the work sheets.

Private Sub Save_Dialog()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "Excel", "*.xls; *.csv; *.csv", 2
If .Show = -1 Then 'user pressed action button.
.Execute
'Application.ActiveWorkbook.SaveCopyAs (vrtSelectedItem)
Else 'The user pressed Cancel.
End If
End With
Set fd = Nothing
End Sub