Vba 尝试一个非常简单的求和宏

我试图执行一个简单的求和函数，它允许我预先定义范围，但我得到了一个#名称？错误

Sub SumSelectedRange()
Dim ThisRng As Range
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8)
ActiveCell.Formula = "=SUM(ThisRng)"
End Sub

---

怎么了？

当使用范围或任何其他vba引用时，它必须位于引号之外

像这样：

Sub SumSelectedRange()
Dim ThisRng As Range
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8)
ActiveCell.Formula = "=SUM(" & ThisRng.Address & ")"
End Sub

---

当使用范围或任何其他vba引用时，它必须位于引号外

像这样：

Sub SumSelectedRange()
Dim ThisRng As Range
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8)
ActiveCell.Formula = "=SUM(" & ThisRng.Address & ")"
End Sub