Hi Monk,
The method GetSaveAsFilename returns
the user's selection; it does not save the file.
Therefore, try something like:
'=========>>
Public Sub Tester2()
'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
Dim fileSaveName As Variant
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
If Not FName = False Then
WB.SaveAs Filename:=fileSaveName, _
FileFormat:=xlWorkbookNormal
End If
End If
End Sub
'<<=========
---
Regards.
Norman
"Monk" <(E-Mail Removed)> wrote in message
news:F18B7115-5E6D-4DC1-A358-(E-Mail Removed)...
>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
|
Similar Threads
