当单元格包含某个数字时，我试图在excel中隐藏工作表

我有一个包含大量工作表的excel工作簿，我有一些代码，如果某个范围包含0，我可以在其中隐藏工作表。它第一次工作，但当我尝试再次使用它时，它停止工作。你能帮帮我吗

这是我隐藏它们时使用的代码

Sub Shadow2()
Dim j As Long
Dim k As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    j = Worksheets.Count
    For k = j To 3 Step -1
    If Range("AA2") = "0" Then
        Sheets(k).Visible = False
        End If
    Next k
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

这就是我再次展示它们时使用的方法

Sub TaFramIgen()
Dim j As Long
Dim k As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    j = Worksheets.Count
    For k = j To 1 Step -1
        Sheets(k).Visible = True
    Next k
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    j = 0
End Sub

当我把它们藏起来一次又一次的时候，我不能使用暗影2代码。。。什么也没发生

你能告诉我我的问题是什么吗

---

提前谢谢

我修好了，这是我的代码

Sub Shadow2()
Dim j As Long
Dim k As Long
Dim cell As Range
Dim v As Variant




    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    j = Worksheets.Count
    For k = j To 3 Step -1
    Set cell = Sheets(k).Range("AA2")
    v = cell.Value
    Sheets(k).Activate
    If Application.IsNA(v) Then
        Sheets(k).Visible = False
    Else
        If cell = "0" Then
            Sheets(k).Visible = False
        End If
    End If
    Next k
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

---

Range（“AA2”）

始终在检查活动工作表。不是您试图隐藏的工作表。如果您想检查相关工作表上的值，只需执行

If Sheets（k）.Range（“AA2”）=“0”

。另请注意：

“0”

与

0

不同。