Excel VBA：超链接调用宏偶发失效问题求助

背景 #

要替换一个包含插入图片、点击触发宏、鼠标悬停显示提示框的按钮，采用创建形状并添加图片，通过超链接关联函数与提示框的方案，初期运行正常。

问题现象 #

通过超链接触发关联函数后，函数调用的子过程中部分操作无法正常执行：

• Application.ScreenUpdating = False语句被忽略
• 使用.ClearContents方法清除单元格内容时失效，但改用.Cells(6,2).Value = vbNullString可正常运行

相关代码 #

创建超链接的代码 #

Sub TOL_AddToSHP_Function_ToolTip(WSX As Worksheet, str_shpName As String, str_functionName As String, str_ToolTip As String)
    Dim shpX As Shape
    
    Set shpX = WSX.Shapes(str_shpName)
    shpX.Parent.Hyperlinks.Add Anchor:=shpX, Address:="#" & str_functionName & "()", ScreenTip:=str_ToolTip
End Sub

Sub NAV_SetHyperlinktoButton()
    Call TOL_AddToSHP_Function_ToolTip(WS_NAV, "shp_NAV__Test", "§rHB_NAV__Test", "Test")
End Sub

关联的函数与子过程 #

Function §rHB_NAV__Test() As Range
    ActiveSheet.Shapes("shp_NAV__Test").TopLeftCell.Select
    Set §rHB_NAV__Test = Selection
        Call Test01
End Function

Sub Test01
    Application.ScreenUpdating = False
End Sub

测试用的Test01变体代码 #

Sub Test01
    ThisWorkbook.Worksheets("Navigation").Cells(6, 2).ClearContents
End Sub

已确认Test01被正常调用，但上述特定操作失效，寻求解决方案。

内容的提问来源于stack exchange，提问作者M91