Just Disable the Alerts and proceed.. You will get it
Application.Sheets(Sheet_Name).Select
Application.Sheets(Sheet_Name).Copy
Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=filename1, FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Windows(oldfilename).Activate
Application.DisplayAlerts = True
Cheers
Shasur
http://www.dotnetdud.blogspot.com