How to get "Save As" code to allow me to specify a location

[Dustan]

Hello,

I have a vba userform that I want a command button to allow the user to save the active sheet

The code I have is

Dim SaveName As String
SaveName = Range("I3") & " Imaging Work Order"
ActiveWorkbook.SaveAs FileName:=(SaveName), FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

My problem is that this doese not allow the user to select where the file is saved. It does save with the name being in the format "(Range I3) Imaging Work Order" but I don't know where is saves to.

Any help is appreciated!

Thanks!

 

[AlphaFrog]

Try something like this...

    [color=darkblue]Dim[/color] SaveName    [color=darkblue]As[/color] [color=darkblue]String[/color]
    [color=darkblue]Dim[/color] MyPath      [color=darkblue]As[/color] [color=darkblue]String[/color]


    [color=green]'Prompt user to select the save path[/color]
    [color=darkblue]With[/color] Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "C:\Temp\"               [color=green]' Default path[/color]
        .Title = "Please Select a Folder"
        .ButtonName = "Select Folder"
        .AllowMultiSelect = [color=darkblue]False[/color]
        .Show
        [color=darkblue]If[/color] .SelectedItems.Count = 0 [color=darkblue]Then[/color] [color=darkblue]Exit[/color] [color=darkblue]Sub[/color]   [color=green]' User clicked cancel[/color]
        MyPath = .SelectedItems.Item(1) & "\"
    [color=darkblue]End[/color] [color=darkblue]With[/color]




SaveName = Range("I3") & " Imaging Work Order"


ActiveWorkbook.SaveAs Filename:=MyPath & SaveName, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        [color=darkblue]False[/color], CreateBackup:=[color=darkblue]False[/color]

 

[Dustan]

Thanks a lot. It works!

Thanks for your time!