Save as dialog
thanks mike. I used your code on another one workbook. It works great!!!!
"Mike H" wrote:
David,
Maybe:-
Sub sonic()
'Your code
Dim FileName As String
FileName = Application.GetSaveAsFilename
If FileName = "False" Then Exit Sub
ActiveWorkbook.SaveAs FileName
End Sub
"David T" wrote:
I have a macro on an Activeworkbook that opens a specifice file in my C:
drive and copies data from the activeworkbook into the workbook in my C:
drive. When my active workbook copies the data to the file, I would like the
file to prompt the SaveAs dialog box.
Can anyone help????
|