VBA Fehler ????? Schwierig!

Private Sub ComboBox1_Change()
If Cells(1, 1).Value = "P" Then
Range("A2:Z22").Select
With Selection.Interior
.ColorIndex = 37
End With
ElseIf Cells(1, 1).Value = "A" Then
Range("A2:Z22").Select
With Selection.Interior
.ColorIndex = 36
End With
End If
Range("r1").Select
End Sub

Desweitern ist noch der Befehl drin.

Private Sub Worksheet_Activate()
Sortieren
End Sub

Wenn nun das Tab aufgerufen wird, wird ja unter

Private Sub Worksheet_Activate() mit Sortieren eines anderen Tab aufgerufen, diese Tab wird  _
auch sortiert, aber das Makro läuft nicht bis zum Ende, sondern springt zwischendurch in die ComboBox1 und gibt logischerweise eine Fehlermeldung aus.
Es gibt in dem Makro kein Befehl in die ComboBox zu springen.
Anbei das Makro SORTIEREN
Sortieren()
Application.ScreenUpdating = False
With Worksheets("SCHÜLERDATEN")
.Unprotect Password:="test"
.Range("Datenbank").Sort Key1:=Range("Name"), Order1:= _
xlAscending, Key2:=Range("Name1"), Order2:= _
xlAscending, Key3:=Range("Name2"), Order3:= _
xlAscending, Header:=xlGuess, OrderCustom:=1 _
, MatchCase:=False, Orientation:=xlTopToBottom
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="test"
End With
Application.ScreenUpdating = True
End Sub

Wer hat einen Rat für mich ?
Denke es müßte was an der ComBoBox geändert werden.
Ich kann auch andere Makros mit der Hand ausführen, und jedesmal geht er in die KomboBox und gibt ein Fehler aus.
Gruß Angela