Application.Dialogs(xlDialogSaveAs).Show to have the name (some predetermined text) all ready input

[sdoppke]

Hi everyone i use the below code to bring up a userform that allows the save as feature to pop up. Id like to modify it so the file name that it saves as is some other text and NOT the original file name. Thanks for any help.

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
SaveWFMTool.Hide
End Sub

sd

 

[shg]

You could instead use Application.GetSaveAsFilename and then test. Or make the workbook read-only.

 

[sdoppke]

You could instead use Application.GetSaveAsFilename and then test. Or make the workbook read-only.

i have toyiong with that for a while now and cant figure it out feelin dumb.

I may have stated it poorly. I want to have the save as feature pop up, so the user can chooser where they want to save, but would like the name of the file to be there already. (it will not be the default file name) it will based on variable from cells.

Hope that help and thanks for hte reply.

sd

 

[shg]

Maybe like this:

    Dim sFile As String
 
    sFile = Application.GetSaveAsFilename(InitialFileName:="Bob.xls")
    If sFile = "False" Then Exit Sub
 
    If sFile = ThisWorkbook.FullName Then
        MsgBox "Bad boy!"
        Exit Sub
    Else
        ThisWorkbook.SaveAs sFile
    End If