inputbox - 入力ボックスを使用するExcelは、シートタブを選択してシート名を取得しますが、シート内のセルではなく、アクティブシートではありません

Question

グラフ、計算、データシートを含むExcelワークブックがあります。

私がVBAでやろうとしていることはこれです：

計算シートを設定し、新しいデータをインポートするスクリプトがあります。問題は、データシートの名前を手動で入力する必要があることです。私が使用しているラッダイト運動のために、プロセスを可能な限り自動化しようとしています。

入力ボックスを設定する方法を見つけようとしています。入力ボックスが表示されたときに、データをインポートする別のシートを選択するように求められます。次に、[データシート]タブをクリックすると、そのシート名をシートとして使用してデータを取得し、クリックした後にスクリプトの残りの部分をキックします。今説明したスクリプトのセクション内のワンクリックプロセス。

私はこれを見つけました...

Sub Sample()
    Dim varCellContent As Range
    Dim strDestinationSheetName As String

    On Error Resume Next
    Set varCellContent = Application.InputBox(Prompt:="Choose a sheet by clicking on any cell in it.", Type:=8)
    On Error GoTo 0

    If Not varCellContent Is Nothing Then
        strDestinationSheetName = varCellContent.Parent.Name

        MsgBox ("Sheet = " & strDestinationSheetName)
    End If
End Sub

これは私が必要としているものの一種ですが、このコードでセルを選択する必要があります。セルを選択できないようにする必要があります。彼らがワークシートにそこまで入ると、彼らは失われます！笑！

企業のセキュリティ上、アドインなどのインストールが必要なものが使えない

どんな助けでも大いに感謝されるでしょう！