Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub saveCSV()
- File = Application.GetSaveAsFilename(InitialFileName:="file.csv", FileFilter:="CSV (*.csv), *.csv")
- ActiveWorkbook.SaveAs Filename:=File, FileFormat:=xlCSV, CreateBackup:=False, local:=False
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement