Just in case you ever wanted to save a sheet as a CSV file.
The setup is as follows:
| A | B | C | D | |
| 1 | Name | Address | Phone | |
| 2 | Test User | Test House, Test Lane, Test City, Test County, TE01 2ST | 01234567890 | Test@email.com |
And the macro:
Sub ConvertToCsv()
'
' ConvertToCsv Macro
' Macro by Eliott Robson (http://www.stormation.info)
'
Sheets.Add Type:=xlWorksheet
ActiveSheet.Name = "CSV File"
Sheets("Invoice").Select
Range("A1:D2").Select
Selection.Copy
Sheets("CSV File").Select
Range("A1:D2").Select
Selection.PasteSpecial Paste:=xlValues
Sheets("Invoice").Select
ThisWorkbook.Save
Sheets("CSV File").Select
CSVPath = "C:\CSV\Files"
CSVUniqueName = Cells(2, "A").Value
CSVName = Format(Now(), "ddmmyyyy") & " - " & CSVUniqueName
ActiveSheet.SaveAs CSVPath & CSVName, xlCSV
End Sub
