Save as Dialog Box

[shiva_reshs]

Hi,

Below code helps me to save Sheet1 file. But I want Sheet2 , Sheet3 and Sheet4 to be saved.

Sub SaveAs()
    
    Dim vntSaveAs
    vntSaveAs = Application.GetSaveAsFilename("Sheet1", "Excel File (*.xlsx),*.xlsx")
    If TypeName(vntSaveAs) = "Boolean" Then Exit Sub
    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs vntSaveAs, xlOpenXMLWorkbook
    ActiveWorkbook.Close False
End Sub

Any advice, how can i add multiple sheet option in this code?

Thanks

[shiva_reshs]

I was able to find the solution to this. Thought of sharing it to all here.

    Dim vntSaveAs
    vntSaveAs = Application.GetSaveAsFilename("Sheet1", "Excel File (*.xlsx),*.xlsx")
    If TypeName(vntSaveAs) = "Boolean" Then Exit Sub
    Sheets(Array("Sheet2", "Sheet3")).Copy
    ActiveWorkbook.SaveAs vntSaveAs, xlOpenXMLWorkbook
    ActiveWorkbook.Close False

Thanks!!!