SaveAs user to choose name

[coop123]

I want to save the file produced from a macro to a specific folder and allow the user to enter the file name.

I have this code already but it is not working correctly.

Dim wb As Boolean
ChDir "J:\Material Type\Report files"
wb = Application.Dialogs(xlDialogSaveAs).Show

It will open up directory J:\Material Type, but won't open up directory J:\Material Type\Report files

Am I missing something or should I be using different code.

Any guidance would be much appreciated.

Thanks

Coop123

 

[EFANYoutube]

Works for me. Does that folder exist and is named exactly like that?

 

[coop123]

I have copied path exactly out of Explorer J:\Material Type\Report files, but it still only opens up to J:\Material Type, so I then have to manually expand Report files within material type.

Do you know of any possible reason why the code will only go to one level??

Thanks

Coop123

 

[EFANYoutube]

Found this for you

Sub Macro2()

Dim strDefaultPath As String
Dim strDefaultName As String
Dim strDialogBoxName As String
Dim strFilePath As String

'//Change the following 3 variables to suit your needs.
strDefaultPath = "J:\Material Type\Report files"
strDefaultName = ""
strDialogBoxName = "Your choice:"

strFilePath = Application.GetSaveAsFilename(strDefaultPath & _
    strDefaultName & ".xlsm", "Workbook (*.xlsm), *.xlsm", , strDialogBoxName)

    If strFilePath = "False" Then
        Exit Sub
    Else
        ActiveWorkbook.SaveAs Filename:=strFilePath
    End If

End Sub

 

[coop123]

Thank you. That was exactly what I wanted.

Everything is now working perfectly.

Thanks again

Coop123