csv bestanden aanmaken uit workbook

Sub inhaaisheets_wegschrijven_naar_E_data()
    Dim xWs As Worksheet
    Dim xcsvFile As String
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For Each xWs In Application.ThisWorkbook.Worksheets
    If InStr(xWs.Name, "haai") Then
        xWs.Copy
        xcsvFile = "E:\data\Rica\" & Sheet1.Range("N2") & "-" & Sheet1.Range("N3") & "-" & xWs.Name & ".csv"
        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
        FileFormat:=xlCSV, CreateBackup:=False
        Application.ActiveWorkbook.Saved = True
        Application.ActiveWorkbook.Close
        End If
    Next
     Application.ScreenUpdating = True
End Sub

Sub M_snb()
   for each it in sheets
     if instr(it.name,"haai") then
        it.copy
        ActiveWorkbook.SaveAs "G:\OF\voorbeeld" & it.name & ".csv", 6, , , , , , , , , , True
     end if
   next
End Sub