Excelabsturz bei Unload

Private Sub CommandButton1_Click()
Unload Warten
Call Tabelle
Cells.Find(What:=Label4.Caption, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Rows(ActiveCell.Row).Select
Liste.Hide
Unload Reklamation
Reklamation.Show
End Sub

Private Sub Tabelle()
If Reklamation.ComboBox5.Value = "2002" Then
Sheets("extern'02").Select
Label100.Caption = "extern 2002"
Reklamation.ComboBox4.Value = ""
ElseIf Reklamation.ComboBox5.Value = "2003" Then
Sheets("extern'03").Select
Label100.Caption = "extern 2003"
Reklamation.ComboBox4.Value = ""
ElseIf Reklamation.ComboBox5.Value = "2004" Then
Sheets("extern'04").Select
Label100.Caption = "extern 2004"
Reklamation.ComboBox4.Value = ""
ElseIf Reklamation.ComboBox5.Value = "2005" Then
Sheets("extern'05").Select
Label100.Caption = "extern 2005"
Reklamation.ComboBox4.Value = ""
ElseIf Reklamation.ComboBox5.Value = "2006" Then
Sheets("extern'06").Select
Label100.Caption = "extern 2006"
Reklamation.ComboBox4.Value = ""
End If
If Reklamation.ComboBox4.Value = "2002" Then
Sheets("intern'02").Select
Label100.Caption = "intern 2002"
Reklamation.ComboBox5.Value = ""
ElseIf Reklamation.ComboBox4.Value = "2003" Then
Sheets("intern'03").Select
Label100.Caption = "intern 2003"
Reklamation.ComboBox5.Value = ""
ElseIf Reklamation.ComboBox4.Value = "2004" Then
Sheets("intern'04").Select
Label100.Caption = "intern 2004"
Reklamation.ComboBox5.Value = ""
ElseIf Reklamation.ComboBox4.Value = "2005" Then
Sheets("intern'05").Select
Label100.Caption = "intern 2005"
Reklamation.ComboBox5.Value = ""
ElseIf Reklamation.ComboBox4.Value = "2006" Then
Sheets("intern'06").Select
Label100.Caption = "intern 2006"
Reklamation.ComboBox5.Value = ""
End If
End Sub