保留跟踪器VBA代码隐藏列

Question

我正在使用VBA代码

Private Sub Worksheet_Change(ByVal Target As Range)
Dim allColumns As Range

    Set allColumns = Columns("D:NK")
    allColumns.Hidden = True

    If Not Intersect(Target, Range("B3")) Is Nothing Then
        If Target.Value = "1" Then
            Columns("D:AH").Hidden = False
        ElseIf Target.Value = "2" Then
            Columns("AI:BM").Hidden = False
End If
    End If
End Sub

但是当我更新工作表时，所有列都被隐藏了..... 我尝试使用不同的vba但仍然无法正常工作

If ActiveSheet.Range("B3").Value = 1 Then
    Exit Sub
Else:
    Range("B3").Value = Range("B3").Value - 1
    LeaveTracker.Columns("D:NK").Hidden = True
    LeaveTracker.Range(Columns(Range("B3").Value * 31 - 29), Columns(Range("B3").Value * 31 + 3)).Hidden = False
End If

请帮忙