『シートタブをクリックして選ぶ』（RINGO）

 検索する対象セルを選ぶのに、Set MyKey = Application.InputBox("検索する対象セルをクリックしてください", Type:=8)とかにして、
 セルをクリックで選べますが、
 クリックでシートタブをクリックして選ぶことはできますか？(RINGO)
----
 InputBox メソッドをVBAヘルプで調べると、↓が見つかると思います。
 0 数式 
 1 数値 
 2 文字列 (テキスト) 
 4 論理値 (True または False) 
 8 セル参照 (Range オブジェクト) 
 16 #N/A などのエラー値 
 64 数値配列 

 InputBoxではシート選択は用意されていません。
 リストボックスなどにシート一覧を表示し、そこから選択するように
 してはいかがでしょう？

 単純に、前もってシートを選択させておいて、選択した
 シートに対して処理を行う、というのも可能です。
 (MARBIN)

----
 えっと、勘違いだったらごめんなさい。
 シートタブをクリックでシートも同時に代入できますけど。
Sub Test()
Dim my_Range
Set my_Range = Application.InputBox("", "", Type:=8)
MsgBox my_Range.Worksheet.Name
Set my_Range = Nothing
End Sub

 （川野鮎太郎）