In diesem Beispiel wird überprüft, ob Hyperlinks des ersten Tabellenblattes das Wort "Microsoft" enthalten.
For Each h in Worksheets(1).Hyperlinks If Instr(h.Name, "Microsoft") <> 0 Then h.Follow Next