Please delete this post

**SinGin** · 05-09-2010, 10:39 PM

I guess I did some cross-posting and I appologize for that. Another member pointed this out to me. So this post is no longer relevant.

**antoka05** · 05-10-2010, 02:36 AM

You can try with this macro:

Sub Macro1()
   Dim fileSaveName
   fileSaveName = Application.GetSaveAsFilename("Excel Files (*.xl*), *.xl")
   If fileSaveName = False Then
      MsgBox "No name selected"
      Exit Sub
   End If
    
   Application.ScreenUpdating = False
   ThisWorkbook.ActiveSheet.Copy
   ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlNormal
   ActiveWorkbook.Close
   Application.ScreenUpdating = True
End Sub

Regards,
Antonio

**SinGin** · 05-10-2010, 08:48 AM

Works great, thanks!

**SinGin** · 05-15-2010, 06:52 PM

I noticed after trying to include this in my overall project, that the code you gave me saves a single workbook, however, it does not have the information from the current worksheet in it. I messed with it trying to make it happen, but no luck. Any ideas?

Thanks for the help you already provided, and I appreciate any further help you can offer.