Allowing user to choose to accept saveas option
I've managed to create the "saveas Macro using cell contents".
However, it automatically saves it to my documents.
Here's my code
Sub save_it()
Dim fname
With ActiveWorkbook
fname = "VMRP_" & .Worksheets("TEST").Range("A1").Value & "_" &
..Worksheets("sheet2").Range("B3").Value & ".xls"
..SaveAs fname
End With
End Sub
Is it possible to insert a break which brings up the saveas dialog box and
enables the user to change the filename (possibly to match their naming
protocols and conventions and pick the location where they would store it?
Many thanks
Terry
|