Data Driven Saving of Multiple Worksheets in CSV Format

Made some progress but stuck:


Private Sub Test_Click()

Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&, sell, sellstr, sfn
Dim i As Integer
Dim wsheets() As String
Dim mattch As Boolean
MsgBox "Hi"
sfn = Trim(Cells(2, 4).Value)
MsgBox sfn
sell = Trim(Cells(2, 5).Value)
MsgBox sell
wsheets() = Split(sell, ",", 100)
For i = LBound(wsheets) To UBound(wsheets)
sellstr = wsheets(i)
MsgBox sellstr
Next i


MyFilePath$ = ActiveWorkbook.Path & "\" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
With Application
.ScreenUpdating = False
' .DisplayAlerts = False
' End With
' On Error Resume Next '<< a folder exists
' MkDir MyFilePath '<< create a folder
For N = 1 To Sheets.Count
Sheets(N).Activate
SheetName = ActiveSheet.Name
MsgBox SheetName
mattch = False
For i = LBound(wsheets) To UBound(wsheets)
sellstr = wsheets(i)
If sellstr = SheetName Then
MsgBox sellstr
mattch = True
End If
Next i
If mattch Then
MsgBox SheetName

sfn = SheetName & ".csv"
Sheets(N).Move
ActiveWorkbook.SaveAs Filename:=sfn, FileFormat:=xlCSV, CreateBackup:=False
' Cells.Copy
' Workbooks.Add (xlWBATWorksheet)
' With ActiveWorkbook
' With .ActiveSheet
' .Paste
' .Name = SheetName
' [A1].Select
' End With
'save book in this folder
' .SaveAs Filename:=MyFilePath _
' & "\" & SheetName & ".xls"
' .Close SaveChanges:=True
' End With
' .CutCopyMode = False
End If
Next
End With
' Sheet1.Activate


End Sub


If run with values of X1,X3 supplied:
then worksheet X1 is output but also removed from the current workbook (not wanted)
and then throw an error missing subscript in X3 worksheet.