Excel - How to export excel sheet to CSV

Hi guys,

I just to export excel sheets to CSV with one click button then user
will prompt to save to any folder they like, key in file name and
done. Please help with VBA code. Thanks

The following works in Excel 2003 and is a macro, but it should help.

Sub SaveSheetToFile()
str1 = ThisWorkbook.Name
Workbooks(str1).ActiveSheet.Cells.Select
Selection.Copy
str2 = InputBox("Enter folder name. e.g. c:\MyFiles\")
str3 = InputBox("Enter file name. e.g. Book1")
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=str2 & str3 & ".csv", FileFormat:=
_
xlCSVMSDOS, CreateBackup:=False
ActiveWorkbook.Close True
End Sub