エクセルVBA thisworkbookで

質問

他の方のＱ＆Ａを参照し、以下のことが出来るようになりました。
各シートに記述し、ハイパーリンクをクリックした際、同シート内の参照セルを、画面上の左上に持ってくるというものです。
http://oshiete1.goo.ne.jp/qa631706.html

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ww_j As Long, ww_k As Long
ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
ActiveWindow.ScrollRow = ww_j '行
ActiveWindow.ScrollColumn = ww_k '列
End Sub

ここからですが、シートが複数あるため、できれば同ブック内で使用したいと考えております。
thisworkbookに記載すればよいかと思ったのですが、うまくいきませんでした。
どのようにすれば、１シートにみではなく、１ブック内で使用できるか、お教えくださいますようお願い申し上げます。

回答No.1

merlionXX · ベストアンサー

thisworkbookに記載するなら以下のようにしてみてください。

×　Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

○　Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

↓

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim ww_j As Long, ww_k As Long
ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
ActiveWindow.ScrollRow = ww_j '行
ActiveWindow.ScrollColumn = ww_k '列
End Sub

お礼

ありがとうございました。できました。

Workbook_Sheet　の意味
ByVal Sh As Object,　の意味も、
正しい答えをお教えいただいたので、すぐに他サイトで確認し、わかりました。

ありがとうございました。