如何调用函数来修改变量vba

Question

我的代码所做的是从其他工作簿中获取值并将其复制并粘贴到另一个工作簿中。然而，我现在想要的是一个可以删除最后3个数字的东西，最终的数字是千美元而不是美元。

如果我要在我的“DSA.Worksheet.Value ...”周围构建我的函数，它会正常工作，但这需要时间，因为我有很多这些。 当我在DSA.worksheet单元格上调用我的函数时，它不起作用，即使我这样称呼它：

Call number_right (DSA.Worksheets(1).Range("G10").Value = Application.WorksheetFunction.Round    (hello.Worksheets("getthis"").Range("I72").Value, -3)



Sub test()    
DSA.Worksheets(1).Range("G10").Value = Application.WorksheetFunction.Round(hello.Worksheets("getthis").Range("I72").Value, -3)

DSA.Worksheets(1).Range("G10").Value = Call number_right(DSA.Worksheets(1).Range("G10").Value)

End Sub


Function number_right(n As Variant) As Variant
If Len(n) > 3 Then n = Left((n), Len(n) - 3)
End Function