VBA列隐藏/取消隐藏突然不起作用

Question

到目前为止，我的代码一直对我有用。

它只是查看单元格A1（这是一个名称），并将其与Row1中的数据进行比较，并根据需要隐藏/取消隐藏。

今天，当我从A1中删除数据时，它无处不在，它隐藏了I和K列以外的所有内容，它们保持隐藏状态，我一生都无法找出原因。

为了使事情变得更有趣，如果我从A1的下拉列表中选择一个空白选择，它将取消隐藏所有列，但是一旦我单击A1上的删除按钮，它就会再次隐藏I＆K。救命！

以下是模块中的代码：

Sub HideColumns_AC_SCORECARD()
Dim col As Range
Application.ScreenUpdating = False
For Each col In Worksheets("AC Scorecard").Range("F:BG").Columns
        col.EntireColumn.Hidden = False
     If Application.CountIf(col, Range("A1")) = 0 Then
         col.EntireColumn.Hidden = True
     End If
Next col
Application.ScreenUpdating = True
End Sub

这是有问题的工作表中的代码：

Private Sub Worksheet_Change(ByVal target As Range)
If Not Intersect(target, Me.Range("A1")) Is Nothing Then HideColumns_AC_SCORECARD
End Sub

在今天之前，这对我来说一直很完美。任何帮助表示赞赏！