Export multiple (specific) range names to CSV files in a specified directory

Hi there,

I'm new to VBA and am struggling to convert the following working script from exporting tabs that contain a specified key word to export similar range names instead:

Sub CreateCSV()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'-----------------------------
'DECLARE AND SET VARIABLES
Dim wb1 As Workbook, ws1 As Worksheet
Dim wbname As String, I As Integer
Set wb1 = ThisWorkbook
'-----------------------------
'CYCLE THROUGH SHEETS AND MATCH UPLOAD
For I = 1 To Worksheets.Count
wbname = Worksheets(I).Name
If InStr(1, Ucase(Worksheets(I).Name), "UPLOAD", vbTextCompare) > 0 Then
'-----------------------------
'COPY SHEET INTO NEW CSV FILE
Worksheets(I).Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Maudibe\Documents\" & wbname & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
wb1.Activate
End If
Next I
'-----------------------------
'CLEANUP
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Any pointers gratefully received.

Thanks,
John

Hi there,

Basically the above script works great in that it creates CSV files from any tabs that contain "UPLOAD" in their name into the defined folder.

The problem is that said tabs and hence said CSV files have two additional rows at the top which I need to get rid of during this export so that another system can import the files I but can't work out how to do that and am not sure that's possible?

I was thinking then that another way to approach this would be to attempt to create the CSV files from range names instead but that could be flawed thinking?

Appreciate your time.

Thanks,
John

Sorry, took a while to get back to this. Thanks for the pointer and with a bit of help from google I'm sorted.

Cheers,
John