excel2002vbaで選択しているセルがハイパーリンクとそれ以外のものを区別する方法

質問

ハイパーリンクをenterキーでリンク先に飛べるようにマクロを挿入したのですが、ハイパーリンク以外のセルでenterキーを押下した時に、「インデックスが有効範囲にありません」というエラーメッセジが表示されていまい通常のセル移動が行えません。
使用しているマクロは以前に掲載されていた以下のマクロをしようしています。
何かいい方法はあるでしょうか？

Sub Auto_Open()
'起動時　キー設定　On
Call SettingKeys(True)
End Sub
Sub Auto_Close()
'終了時　キー設定　Off
Call SettingKeys(False)
End Sub
Sub SettingKeys(flg As Boolean)
If flg Then
Application.OnKey "{Enter}", "JumpHyperLink"
Application.OnKey "~", "JumpHyperLink"
Else
Application.OnKey "{Enter}"
Application.OnKey "~"
End If
End Sub
Sub JumpHyperLink()
If TypeName(Selection) = "Range" Then
Selection.Hyperlinks(1).Follow NewWindow:=False
End If
End Sub

回答No.1

bonaron · ベストアンサー

これでいかが？
If TypeName(Selection) = "Range" Then
　　If Selection.Hyperlinks.Count > 0 Then
　　　　Selection.Hyperlinks(1).Follow NewWindow:=False
　　End If
End If

お礼

早速のご回答ありがとうございました。

上記の方法で問題なく成功しました。