wo ist der Fehler?

Public oldTarget As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
ActiveSheet.Unprotect "test"
oldTarget.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 36
Set oldTarget = Target
ActiveSheet.Protect "test"
End Sub

Wenn ich jetzt den Blattschutz aufhebe, aktiviert er sich automatisch wieder. Kann also in der Datei nichts mehr verändern. Wenn ich es wieder lösche, funktioniert alles wieder. Was muss ich ändern, um den Blattschutz wieder ohne Probleme ausführen und aufheben zu können und trotzdem die aktive Zelle andersfarbig gestalten zu können?

Wer kann mir helfen?