save as with auto name

[mykal66]

The code below works to autoname a file based on certain cells within a worksheet but rather than save in the background is it possible to bring up the save as dialogue box with the file name already populated?
[VBA]Sub Save()

Sheets("Letter Creation").Select
Range("c3").Select
a = ActiveCell.Value
Range("c5").Select
b = ActiveCell.Value
Range("b16").Select
c = ActiveCell.Value

q3 = a & " " & b & " " & "(" & c & " " & d

ActiveWorkbook.SaveAs Filename:=q3 & Format(Date, "mmmm dd yyyy") & ")" & ".xls"

End Sub[/VBA]


Thanks

[CatDaddy]

[vba]

Sub Save()

Sheets("Letter Creation").Select
Range("c3").Activate
a = ActiveCell.Value
Range("c5").Activate
b = ActiveCell.Value
Range("b16").Activate
c = ActiveCell.Value

q3 = a & " " & b & " " & "(" & c & " " & d

Dim chk as Integer
chk = InputBox(q3 & Format(Date, "mmmm dd yyyy") & ")" & ".xls" & vbCrLf & "1) Save" & vbCrLf & "2) Abort")
if chk = 1

ActiveWorkbook.SaveAs Filename:=q3 & Format(Date, "mmmm dd yyyy") & ")" & ".xls"
End If

End Sub

[/vba]

[frank_m]

[VBA]
'.........

Application.Dialogs(xlDialogSaveAs).Show _
("C:\YourFolder\" & q3 & " (" & Format(Date, "mmmm dd yyyy") & ")" & ".xls")[/VBA]