『移動・拡大可能なプルダウンリストの作成』（くま）

いつも参考にさせていただいています。ありがとうございます。
通常のプルダウンリストは作成できるのですが、
クリック選択して、拡大したり、移動できるプルダウンリストは
どのように作成すればよいのでしょうか？
よろしくお願いします。

----
 普通の入力規則でも移動できると思いますが。
 選択した文字も一緒に移動しますけど。
 拡大は、メニューバーのズームで全体を大きくしてやるとか。

 一応マクロでの別な方法（マウス右クリック）

 後は、必要に応じて入力文字の増減、編集をしてください。
 編集しやすい？ように書いたつもりです。（取りあえず候補は７つ）
 マクロが使えなかったら捨ててください。
 BJ

 標準モジュール
 Sub Wordin()
  Set myButton = Application.CommandBars.ActionControl
  ActiveCell.Value = myButton.Caption
  Set myButton = Nothing
 End Sub


 シートモジュール
 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Dim ListRng As Range
  If Target.Count <> 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub  'A列だけ対象
  Cancel = True
  Application.ScreenUpdating = True
  With Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True)
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字１"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字２"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字３"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字４"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字５"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字６"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      With .Controls.Add(Type:=msoControlButton)
           .Caption = "入力文字７"  '←入力する文字
           .FaceId = 59
           .OnAction = "Wordin"
      End With
      .ShowPopup
      .Delete
  End With
  Application.ScreenUpdating = False
 End Sub