I am using the code below to display a Save as Dialog Box with the preferred
directory location. The dialog box and correct directory location appear
however the file does not save to that filename / location once the user
presses the Save button.

Any suggestions as to my error would be appreciated

'Retrieve file name to use for Save
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng2 As Range
Dim Rng3 As Range
Dim aStr As String
Dim sPath As String
Dim FName As String

Set WB = ThisWorkbook
Set SH = WB.Sheets("Cash Summ")
Set Rng2 = SH.Range("A1")
Set Rng3 = SH.Range("A2")

If Not IsEmpty(Rng2.Value) Then
aStr = Rng2.Value
aStr2 = Rng3.Value
FName = aStr & aStr2
fileSaveName = Application.GetSaveAsFilename(FName)
End If
End Sub