Könnte mir Bitte jemand einen Tip geben,wie ich über 3000 Hyperlink auf einmal entfernen kann.
Danke,Heinz
Sub DeleteHyperlinksWorksheet()
'Quelle: Monika Weber
Dim hypLink As Hyperlink
For Each hypLink In ActiveSheet.Hyperlinks
hypLink.Delete
Next hypLink
End Sub
Sub Links_raus()
Range("B:B").Hyperlinks.Delete
End Sub