MACRO: Save As Macro Not Saving

Good Afternoon,

I made the macro below, but its not saving? I'm new to making macros and i'm sure its something easy but I can't find the answer. I have been searching on how to do this for the last 2 days and i'm still lost. Thanks again guys.

This is what I wanted it to do:

1. Open the Save As dialog box
2. Already have the network folder where they need to save
3. have the sample save name.

Any help would be great. Thank you guys for your help.

Sub save_workbook()
    Dim intChoice As Integer
        Application.FileDialog(msoFileDialogSaveAs).InitialFileName _
            = "\\stxfile01\CTXGroups\TechOps\MTR_Reports\xx.xx.2016 Tech# LName FName"
        intChoice = Application.FileDialog(msoFileDialogSaveAs).Show
End Sub