选择单选按钮时，使用InputBox在单元格中输入值

Question

我有一个名为“Main”的工作表，我希望在选择单选按钮时弹出一个InputBox; （单元格A311中值为1的选项按钮3），并将InputBox的值放入单元格R2中。我已将以下代码直接放入对象表中，但只有在我将宏直接分配给单选按钮时才能运行它。

Sub Pumped_WS()

Dim userinput As String

Set pumped = ActiveSheet.Range("A311")
Set ws = ActiveSheet.Range("R2")

If pumped.Value = 1 Then userinput = Application.InputBox("Please enter elevation for the pumping water surface!")

    ws.Value = userinput

End Sub

我想将其设置为私有子，并根据单选按钮的选择运行，而无需为宏分配按钮。当我尝试：

Private Pumped_WS(ByVal target As Range)

其余代码在public sub中;选择单选按钮时没有任何反应。请帮忙！