Anwendungs- oder objektdefinierter Fehler

Sub Auswertung
Call Tabelle2.Auswertung_Seite2 'hier wird mir der Fehler angezeigt
End Sub

Sub Auswertung_Seite2()
Dim b, i As Long
b = 8
For i = 1 To 40
If Me.OLEObjects("CheckBox" & i).Object.Value = True Then
Worksheets("Ende").Cells(b, 2) = Me.OLEObjects("CheckBox" & i).Object.Caption
Worksheets("Ende").Cells(b, 5) = Me.OLEObjects("TextBox" & i).Object
b = b + 1
Else
b = b + 1
End If
Next i
If CheckBox41.Value = True Then
Sheets("Ende").Cells(48, 2) = CheckBox41.Caption
Else
Worksheets("Ende").Cells(48, 2) = ""
End If
Call Tabelle3.Auswertung_Seite3
End Sub