为什么使用函数赋值会产生错误？

Question

我的功能如下：

Function test()
   ThisWorkbook.Sheets("DATA").Range("H1").Value =1
End Function

我通过在单元格中键入= test（）来调用Excel工作表上的函数。

当我按回车键时，Excel会抛出一个#VALUE！错误。