本示例检查第一张工作表上的超级链接是否有“C:\tarawin.bmp”。

Dim a As Variant

For Each h In ActiveWorkbook.Worksheets(1).Hyperlinks

a = InStr("C:\tara", " C:\tarawin.bmp")

If a <> 0 Then h.Follow

Next