SaveAs

Allows the user to save a file


.InitialFileName - default path to open


Dim objFileDialog As Office.FileDialog 
    Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogSaveAs)
    
    With objFileDialog
        .AllowMultiSelect = True
        .ButtonName = "Save As"
        .Title = "Save As"
        If (.Show > 0) Then
        End If
    End With


© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext