Excel使用输入框获取工作表名称，方法是选择工作表选项卡，但不选择工作表中的单元格而不是活动工作表

Question

我有一个包含图表，计算和数据表的Excel工作簿。

我在VBA中尝试做的是：

我有一个脚本可以设置计算表并将新数据导入其中。问题是我必须手动输入数据表的名称。我试图尽可能地自动化该过程，因为我使用luddite lol！

我试图想办法设置一个输入框，这样当它弹出时会提示我选择一个不同的工作表来导入数据。然后，我单击数据表选项卡，它使用该工作表名称作为工作表来获取数据，并在单击后踢出其余部分。只是我刚才描述的脚本部分中的单击过程。

我确实找到了......

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

这是我需要的，但我必须选择具有此代码的单元格。我需要能够不选择单元格。如果他们走到工作表那么远，他们就会迷路！笑！

由于公司安全，我无法使用需要安装的插件或anthing

任何帮助都会得到很大的帮助!!