複数のダブルクリックイベントが設定したい

Question

初心者で初めて質問させていただきます。
１つのシート内に縦に並んだ名前を付けたテーブルが５つあります。
マクロボタンを使用するとテーブルなので値が貼付けられたときに下へ自動でずれが生じるため、セルにダブルクリックするようにして実行する様にはできました。
しかし、テーブル毎にセルボタン（ダブルクリック）を複数作成したい場合はどうすればよいのでしょうか？
一つ目の「登録１」セルは（～5も作成したい）はテーブルの上に題名帯の行を作成し、右端セル（列は６列）に埋め込みました。
時間を取られて困っています。お詳しい方、ご教示いただきたいです。どうぞよろしくお願いいたします。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Target.Value = "登録1") Then Exit Sub
日本人
MsgBox "「日」登録しました "
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Target.Value = "登録2") Then Exit Sub
アメリカ人
MsgBox "「米」登録しました "
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not (Target.Value = "登録3") Then Exit Sub
フランス人
MsgBox "「仏」登録しました "
End Sub

・・・・

Answer 1

最後のフランスの処理は登録3でいいんですよね？
こんなところでガード節使ったコーディングせずに
普通にIf～ElseIf～EndIfで組めばいいのでは？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Value = "登録1" Then 
        ' 日本人 
        MsgBox "「日」登録しました "
    ElseIf Target.Value = "登録2" Then
        'アメリカ人
        MsgBox "「米」登録しました "
    ElseIf Target.Value = "登録3" Then
        'フランス人
        MsgBox "「仏」登録しました "
    End If
End Sub

Comments

[miimiimiichichi]

早速のご回答、本当にありがとうございます‼コードを試してみたのですが、 IfTarget.Value = "登録1" Thenの部分がエラーになってしまうのですが、こちらの記述の始まりは Ifからでよいのですか？

[Y.H.]

変な閉じ括弧がついてたのでコード修正しました。

[miimiimiichichi]

Y.H.様
もう一度、落ち着いて記述から書いてみましたら、見事にすべて実行されました!!
本当にありがとうございます。普段はシート毎に自動化していてシート内で複数設定しなければならず、頭をかかえておりました‼もっともっと学習して実践してスキルアップしていきたいと思います!!早急のご回答に心から感謝いたします!!‼