Excel VBA代码，允许用户在每张图纸上选择相同的单元格

我需要我的用户能够在工作簿中的每个工作表（32个工作表）上选择相同的单元格，但我不能让他们进入代码来更改它。代码需要保持保护。我看到过一些帖子，它们指示使用shift键高亮显示所有选项卡，然后在一张工作表上选择适当的单元格，并在所有其他工作表上选择相应的单元格。这个方法的问题是，其他页面的相关区域不一定可见，用户仍然需要滚动

我发现了一些代码，我可以修改以满足我的需要，它很容易改变单元格引用，但我需要用户能够做到这一点，而无需进入代码

Sub GoToSelectCellOnEverySheet()

Dim i As Long

For i = 1 To 32
Worksheets(i).Activate

Range("A1").Select

Next i

Worksheets(1).Activate

End Sub

我还遇到了一些我认为可以修改的东西，但是在我试图引用用户输入的地方，这对我来说太糟糕了。我尝试过那行代码的各种变体，但都没有用。我不知道我是否遗漏了一些简单的东西，或者我的方法是否完全有缺陷。当它到达目的地时，它就死了

Range.("rRange").Select

任何帮助都将不胜感激。谢谢

Sub RangeDataType()

Dim rRange As Range

    On Error Resume Next

        Application.DisplayAlerts = False

            Set rRange = Application.InputBox(Prompt:= _
                "Please Select A Cell", _
                    Title:="SPECIFY RANGE", Type:=8)

    On Error GoTo 0

        Application.DisplayAlerts = True

        If rRange Is Nothing Then

            Exit Sub

        Else

Dim i As Long

For i = 1 To 32

Worksheets(i).Activate

Range.("rRange").Select

Next i

Worksheets(1).Activate

        End If

End Sub

---

尝试这样做：

Set rRange = Application.InputBox(Prompt:= _
            "Please Select A Cell", _
                Title:="SPECIFY RANGE", Type:=8)

If rRange Is Nothing Then Exit Sub

Dim i As Long
For i = 1 To 32
    Worksheets(i).Activate
    Range(rRange.Address).Select
Next i

---

完美的显然，我的学习曲线相当陡峭，但我很高兴这是一件简单的事情。非常感谢！