SaveAs Macro not saving anything

[Melynnie]

I am hoping that someone can tell me what I am missing - I have this macro and everything works just fine except that it doesn't actually SAVE anything - just goes through the motions... Here is what I have -

---

Sub getFolder()
Dim filepath As String
Dim newFldrDia As FileDialog
Dim filename1 As String
Dim selectedFolder As String




filename1 = Range("c4").Text
Set newFldrDia = Application.FileDialog(msoFileDialogSaveAs)









With newFldrDia
.Title = "Vendor Adjustments"
.InitialFileName = "S:\Melynnie\Adjustment Backups"
.InitialFileName = "TYPE YOUR PO NUMBER HERE"
.AllowMultiSelect = False
.Show


Application.DisplayAlerts = True

selectedFolder = filename1 & (" - BE SURE TO PRINT ANY CORRESPONDING EMAILS")


End With

MsgBox selectedFolder


End Sub

 

[Fluff]

I am hoping that someone can tell me what I am missing

You're not telling it to save.
Also, you're asking for a filename, but never using it.