Excel 2016中VBA取消隐藏列失败问题及已定位的错误原因

更新：我已找到问题所在。该宏在用户选择工作表上的链接时运行，而我之前将链接绑定到了取消隐藏行的宏。 #

最近我在Excel里用VBA写取消隐藏列的代码时碰了钉子，查了相关资料还是没解决问题。

我目前在用的代码是这样的：

Public Sub a_view_calc_columns() 
    Dim calc As Worksheet 
    Dim rng As Range 
    Set calc = ThisWorkbook.Sheets("Calc") 
    Set rng = calc.Range("A:T") 
    rng.EntireColumn.Hidden = False 
End Sub

我还试过下面这段代码：

rng.Column.EntireColumn.Hidden = False

以及这段：

With Columns("A:T") 
    If .EntireColumn.Hidden = True Then 
        .EntireColumn.Hidden = False 
    End If 
End With

我用的是Excel 2016，A到T列都有数据，测试的时候手动隐藏了G和H列，但代码就是不起作用。

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