Hi there, I have been using this script successfully to export data from a sheet to csv (.txt):
Sub CSVExport()
Dim var1 As String
Dim var2 As String
Dim var3 As String
Dim var4 As String
'Find the last row that contains data
With Worksheets("Sheet1")...