Personal.xlsでUserFormを開く

質問

Personal.xlsに登録したマクロでBookのUserFormを開くには？

環境:EXCEL2000 Windows7

Book1.xlsにUserForm1を作りました。
Book2.xlsにもUserForm1を作りました。
(Book1のUserForm1とBook2のUserForm1は異なるForm)

Personal.xlsに次のSubを追加しました
Public Sub DispForm1()
ActiveWorkbook.UserForm1.Show vbModeless
End Sub

ツールバーに釦を追加しマクロ「DispForm1」を登録しました

やりたい事
(1)Book1を開き釦を押すとBook1のUserForm1を表示する
(2)Book2を開き釦を押すとBook2のUserForm1を表示する

問題点
釦を押すと
「オブジェクトは、このプロパティまたはメソッドをサポートしていません」
のエラーがでる

アドバイスよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

一般には

Book1.xlsの標準モジュールに
sub macro1()
　userform1.show vbmodeless
end sub

Book2.xlsの標準モジュールに
sub macro1()
　userform1.show vbmodeless
end sub

をそれぞれ準備

personalに
sub DispForm1()
　application.run activeworkbook.name &"!macro1"
end sub
といった作り方をします。

お礼

ありがとうございました。
ご指摘の方法で期待通りの動作になりました。
助かりました！