VBA Column Hide / Unhide не работает внезапно

Question

У меня есть код, который всегда работал для меня до сих пор.

Он просто просматривает ячейку A1 (которая является именем) и сравнивает ее с данными в строке 1 и при необходимости скрывает / отображает.

Сегодня ниоткуда, когда я удаляю данные из 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

Это всегда отлично работало дляя до сегодняшнего дня.Любая помощь приветствуется!