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????