Laufzeitfehler 9 - Copy After

'Tabellenblätter in Workbook kopieren
'Auswahl der Tabellenblätter über Checkboxen
Dim arrTabs
ReDim arrTabs(0)
Dim bytTabs As Byte
Dim bytZaehler As Byte
' Schleife von 1 bis 3 (Anzahl an CheckBoxen)
For bytZaehler = 1 To 3
If Me.Controls("CheckBox" & bytZaehler) Then
ReDim Preserve arrTabs(0 To bytTabs)
' ********STIMMT DAS?
arrTabs(bytTabs) = Me.Controls("CheckBox" & bytZaehler).Caption
End If
Next bytZaehler
'Kopieren in den Pfad aus Variable
'If arrTabs(0)  "" Then Worksheets(arrTabs).Copy After:=strWsNeuName & ".xlsm"
'Zum Test Kopieren in Vorgegebenen Pfad
If arrTabs(0)  "" Then Worksheets(arrTabs).Copy After:=Workbooks("D:\Projekt\Datenbank\1_test. _
xlsm").Sheets(1)
Exit Sub