スキルアップ・問題解決なら、モーグにおまかせ！

●実行時エラー '13':型が一致しません。になります。
 
エラーにつきまして､ご教示のほどよろしくお願いいたします｡
 
参考にしました。
http://www.k1simplify.com/vba/tipsleaf/callbuttonname.html
 
-----------------------------------------------------
Private Sub CommandButton1_Click()
 
　　Call Sample1
 
    End Sub
 
Sub Sample1()
 
    Dim Button_Name As String
     
    'どのボタンが押されたか判断する
    Button_Name = Application.Caller '●実行時エラー '13':型が一致しません。
 
    MsgBox Button_Name
 
End Sub
---------------------------------------------------

シートに設定するコマンドボタンには、２種類あります。
  
「フォームコントロール」と「ActiveX」です。
  
「フォームコントロール」のコマンドボタンでは、
プロシジャを共通化して、Application.Callerでボタン名を取得できますが、
  
「ActiveX」側では、Application.Callerでは対応ができないと思います。
  
今回の
>CommandButton1_Click
は、「ActiveX」なので、このようなエラーが出たわけです。
Application.Callerを利用するならば、「フォームコントロール」の
コマンドボタンをお勧めします。
但し、コマンドボタンに登録するマクロは、Sample1を指定すればよいです。

WinArrow さん
 
ご返答いただきありがとうございます。
 
>シートに設定するコマンドボタンには、２種類あります。
>「フォームコントロール」と「ActiveX」です。
はい、大変勉強になりました。
 
> Application.Callerを利用するならば、「フォームコントロール」の
>コマンドボタンをお勧めします。
>但し、コマンドボタンに登録するマクロは、Sample1を指定すればよいです。
はい、分かりました。
 
お世話になりました。感謝申し上げます。