本示例检查第一张工作表上的超级链接是否有“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