Makro geht in Personl.xls nicht

Sub Verknüpfungen_markieren()
Dim R As Range
Dim Nummer As Integer
Dim Seite As String
Seite = ActiveSheet.Name
For Each R In Worksheets(Seite).UsedRange
If Left(R.Formula, 1) = "=" And InStr(R.Formula, "[") > 1 Then
R.Interior.ColorIndex = 3
Nummer = Nummer + 1
Application.StatusBar = "Bitte warten ich habe im Blatt " _
& Seite & " " & Nummer & " Bezüge (Verknüpfungen) gefunden!"
End If
Next R
If Nummer > 0 Then
MsgBox (Nummer & " externe Verknüpfungen auf dem Blatt " & Seite & " vorhanden")
Else
MsgBox ("Keine externen Verknüpfungen auf dem Blatt " & Seite & " vorhanden")
End If
End Sub