|
いつもお世話になります。
既にハイパーリンクが貼られたセルを見つけ出し、リンクを実行させるマクロを書いてみたのですが、ハイパーリンクの実行のところでエラーがでます。
sheet1のA列の各セルにはハイパーリンク関数によるリンクが貼られています。(リンクは同じブック内の違うシートのセルとの間に設定されています。)
例 "A1" = HYPERLINK("#sheet2!A1", "aaa1")
"A2" = HYPERLINK("#sheet3!A6", "aaa2")
"A3" = HYPERLINK("#sheet2!A27", "aaa3")
...
行いたい動作は、A列中のリンクが貼られたセルのうち、どれか一つを指定し、そのリンクを実行するというものです。
「リンク名」を、sheet1のA列中のセルの値とし、
下記のようなマクロを書いてみたのですが、セルの検索のみ処理され、リンクの実行が行われません。
ans = InputBox("リンク名を入力してください", "リンク名", "")
Worksheets("sheet1").select
Set Foundcell = Range("A4:A800").Find(ans, LookAt:=xlPart)
If Foundcell Is Nothing Then
MsgBox "リンク元がありません。"
Else
Foundcell.Select
If Selection.Hyperlinks.Count >= 1 Then
Selection.Hyperlinks(1).Follow
End If
End if
リンクの実行が行えるようにするにはどうすればよいのか、ご教示お願いいたします。
|
|