SaveAs

[Jazzman]

Hi,

Is there a way to use Application.Dialogs(xlDialogSaveAs) to save a single sheet into a new workbook?

 

[jindon]

You could use Application.GetSaveAs method.

    Dim fn As String
    fn = Application.GetSaveAsFilename()
    If fn = "False" Then Exit Sub
    'Your sheet saving code here.

 

[Monty]

Hello Jazzman.

Just an idea..

VBA Syntax and sample VBA code to Save a Sheet as Workbook using VBA

Workbook1.Sheets("Worksheet1).Copy BEFORE:=Workbook2.Sheets(1)

WORKBOOK. SAVEAS “FILE PATH TO SAVE”


i am on my mobile actually...So Let me know if you need complete code.

Regards
Monty