Suggestions? I was rather surprised to open the csv file and see the control button's on the screen . . .
TIA
Ron
Code:
Sub m_copy_save_close()
Sheets("Start Page").Select
Sheets("Start Page").Copy
Dim fname
fname = Application.GetSaveAsFilename(InitialFileName:="AtHoc_SP_", fileFilter:="Excel Files (*.csv), *.csv", Title:="Save As")
If fname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.Close False
End Sub
TIA
Ron
Last edited: