I have a code I have been using to export a bunch of worksheets to csv files.
I am hoping to incorporate a couple lines to delete a few rows and columns in the csv, but not in the original export file.
Can you guys give me some lines to hopefully put in.
Sub testexport()
Dim i As Integer
Dim sName As String
For i = 3 To 69
Sheets(i).Activate
sName = ActiveSheet.Name
Range("A1:W645").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="S:\Com\Monthly\Test\" & sName & ".csv", FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Next
End Sub
Bookmarks