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