Hyperlinks Property Example

This example checks to see whether any of the hyperlinks on worksheet one contain the word “Microsoft.”

For Each h in Worksheets(1).Hyperlinks
    If Instr(h.Name, "Microsoft") <> 0 Then h.Follow
Next