Fout in formule met printen

Sub Knop8_Klikken()
'VGA afdrukken
    Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Visible = xlSheetVisible And Sh.Range("A1").Value = "V" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        .Worksheets(Arr).PrintOut
    End With
End Sub

  .Worksheets(Arr).PrintOut

Sub printen()
'Afdrukken kwaliteitsplan
Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Visible = xlSheetVisible And Sh.Range("A1").Value = "K" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        .Worksheets(Arr).PrintOut
End With

End Sub

Sub Knop8_Klikken()
  M_afdruk "V"
End Sub

SUb M_kwaliteitsplan()
  M_afdruk "K"
end Sub

Sub M_afdruk(c00)
    For Each Sh In sheets
        If Sh.Visible = -1 And Sh.Range("A1").Value = c00 Then c01=c01 & "|" & sh.name
    Next
 
    if c01<>"" then sheets(split(mid(c01,2),"|")).PrintOut
End Sub