他Book(シートモジュール）のマクロを実行したい

質問

ご教授ください。
Book1 WorkSheets(1)で UserForm1. TextBox1 TextBox2
エクセルにハイパーリンクを設定
Application.Run "Book2.xls!.Worksheet_FollowHyperlink"　→エラー1004　マクロが見つかりません。

Book2 WorkSheets(2)の シートモジュールに
　　 Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
行番号 = Target.Range.Row
UserForm1.TextBox2.Text = Cells(行番号, 5).Value　→　エラー424　オブジェクトが必要です
UserForm1.Show

Book1で開いたUserForm1に送りたく、いろいろ試したのですがどうしても出来ません。
よろしくお願いいたします。

使用 Excel：Excel2003、使用 OS：WindowsXP

回答No.1

end-u · ベストアンサー

提示情報だけで素直に解釈＆推測すると
Book1.xlsの標準モジュールに
Option Explicit
Sub test1()
　　Workbooks("Book2.xls").Worksheets(2).Hyperlinks.Item(1).Follow
End Sub

Sub test2(x As Variant)
　　With UserForm1
　　　　.TextBox2.Text = CStr(x)
　　　　.Show
　　End With
End Sub

Book2.xls Worksheets(2)のシートモジュールに
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
　　Application.Run "Book1.xls!test2", Cells(Target.Range.Row, 5).Value
End Sub

・Book2.xls Worksheets(2)に複数のHyperlinkがある場合はどうするのか。
・Book1.xls が閉じられている場合は想定されているのか。
などの懸念はありますが、そこは実環境と状況次第で工夫してください。

お礼

ありがとうございます。解決しました。
VBAの勉強をしながら作っていますが、どうやってもうまくいかず、初めて質問させてもらいました。
やっと前に進むことが出来、本当にうれしいです。