This code is doing exactly what I need it to except that when I click "Save" in the dialog box, the file doesn't actually save anywhere. The dialog box disappears, and the file is not on my desktop. Can someone help?
VBA Code:
Sub Complete_Form()
ActiveWorkbook.Sheets("Data Input").Visible = xlSheetHidden
Dim fPth As Object
Dim InitialName As String
Dim fileSaveName As Variant
Dim eventdate As String
Set fPth = Application.FileDialog(msoFileDialogSaveAs)
eventdate = ThisWorkbook.Sheets("Event Details").Range("B10")
InitialName = "Logistics " & ThisWorkbook.Sheets("Event Details").Range("B3") & " " & ThisWorkbook.Sheets("Event Details").Range("N3") & " " & Format(eventdate, "m.d.yyyy")
With fPth
.InitialFileName = InitialName
.Title = "Save as"
.FilterIndex = 1
.InitialView = msoFileDialogViewList
.Show
End With
End Sub