计算工作表时UDF未更新的单元格

Question

我有一本Excel模板。在工作表Data中，单元格A1具有以下公式：

=getTemplateVersion()

此函数检索具有模板版本号的自定义文档属性。我正在尝试更新模板版本，然后更新单元格A1的内容。我正在使用以下功能：

Sub setVersion(version As String)

'class for setting and retrieving template version property
Dim vm As New VersionManager

Dim currentVersion As Variant
Dim sht As Worksheet

'retrieves template version property value
currentVersion = vm.getVersion

'sets template version property value
vm.setVersion version

For Each sht In ThisWorkbook.Sheets
    sht.calculate
Next

End Sub

当此函数结束时，A1的值没有改变。但是当我点击A1，然后点击公式，然后按Enter键，A1的值更新。因此版本属性正在更新，但是在调用sht.calculate时，它不会在工作表上进行更新。

有没有办法以编程方式更新此UDF调用公式的值？每次运行版本更新功能时，我都不想点击这个单元格。