エクセルVBAのアドイン化

Question

前提・実現したいこと

選択されているセルが変化したら
UserFormのテキストボックスにアクティブセルの値を読み込むという
VBAをつくりました。これをアドインにしたいです。

発生している問題・エラーメッセージ

xlsm形式の際は問題なく動作するのですが、
アドイン化した際に動作しなくなります。

該当のソースコード

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

UserForm2.TextBox1 = ActiveCell.row

End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

Comments

[1T2R3M4]

Privateだからってわけではないですか。

Answer 1

アドイン化するとExcelが起動すると自動的にアドイン化ファイルが開きます
その後新規だったりすでにあるファイルを開いたりするので
Excel上では2重3重にファイルが立ち上がっている状態になります。
Excelのマクロ(ブック)とアドインの違いについて

そうするとどちらのブック情報を使えばよいか？という事になります。
現在開いているブックに関係する情報の場合
ActiveWorkbook.ActiveSheet 'シート
ActiveWindow.ActiveCell　 '選択セル
アドイン化ファイルに関係する情報の場合
Application.ThisWorkbook　　 'ブック
というようにして下さい

気になるようでしたら

debug.print ActiveWindow.Parent.name
debug.print ActiveWorkbook.name
debug.print Application.ThisWorkbook.name

以上をアドオンしたファイルから実行してみて下さい
普通のファイルだと3つとも同じ名前になりますが
アドオンしたファイルからだと違いがでます。

Answer 2

提示されたコードでは、アドインファイルのアクティブセルの変更に反応することになります。

アクティブブックのイベントに反応するためには、下記の様にする必要があります。

Option Explicit

Public WithEvents App As Excel.Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    UserForm2.Show False
    UserForm2.TextBox1 = Target.Text
End Sub

Private Sub Workbook_Open()
    Set App = Excel.Application
End Sub