And this....

Option Explicit

Sub SaveCurrentWorkBook()

Dim FileName As Variant

'Get the filename
'Returns False if the user cancels the dialog box.
FileName = Application.GetSaveAsFilename _
(FilterIndex:=5, Title:="Save As")

If FileName = False Then
MsgBox "No file was saved."
Exit Sub
End If

'Display full name and path of file selected
MsgBox "Your file will be saved as " & FileName

End Sub


"Robert Crandal" wrote:

Does anyone have any sample VBA code which writes
the current workbook into a new Excel file??
.