Hyperlink entfernen

Sub Hyperlink_loeschen_Transportversuch_1()
ActiveSheet.Delete
Sheets("Übersicht").Select
Dim i As Long, laR As Long, _
n As Integer
ActiveSheet.Unprotect ("abc")
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 8).End(xlUp).Row
If laR >= 12 Then
Range("G12:G" & laR).ClearContents
For i = 12 To laR Step 1
For n = 7 To Sheets.Count Step 1
If Sheets(n).Name <> Cells(i, 8).Text Then
ActiveCell.Hyperlinks.Delete
Exit For
End If
Next n
Next i
End If
ActiveSheet.Protect ("abc")
Application.ScreenUpdating = True
End Sub