Hyperlinks entfernen/Bilder löschen per Makro

Sub aa()
Dim hl As Hyperlink, s, ttd
For Each hl In Sheets(1).Hyperlinks
On Error Resume Next
ttd = hl.TextToDisplay
On Error GoTo 0
If ttd Like ("Season*") Or ttd Like ("Episode*") Then
s = Split(hl.Address, "/")
s = s(UBound(s) + (s(UBound(s)) = ""))
With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
.Offset(1) = s
.Offset(1, 2) = hl.Parent.Offset(2)
End With
End If
Next
With Sheets(2)
.Range("A:G").Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlNo
End With
With Sheets(1)
.Cells.Clear
End With
End Sub