Самопроизвольно появляется столбец

[Brucebelg]

Добрый день,

Не могли бы гуру взглянуть в приложенный файл? С помощью кода столбец D скрывается, если значение в ячейке С8 отлично от MS_Standard_Inlet или MH_Inlet_with-Bleed_Screws. Все работает, однако, если поменять значение в ячейке С9 (все равно на какое, даже если выбрать или оставить текущее), то столбец D появляется снова. Значение ячейки С9 нигде в коде не используется. Где же собака порылась?

Заранее спасибо

[Watcher_1]

Замените на это

Private Sub Worksheet_Change(ByVal Target As Range)
    'this hides or unhides section lines (18-22)
    myR = Target.Row
    myC = Target.Column
    If Target.Address = [C11].Address Then
        ActiveSheet.UsedRange.EntireRow.Hidden = False
        Range(Target + 14 & ":21").EntireRow.Hidden = (Target > 2 And Target < 8)
       End If
       'this hides or unhides column D based on text in C8
       If myR = 8 And myC = 3 And (Target.Text = "MS_Standard_Inlet" Or Target.Text = "MH_Inlet_with_Bleed_Screws") Then
         Range("D:D").EntireColumn.Hidden = True
       ElseIf myR = 8 And myC = 3 And Target.Text <> "MS_Standard_Inlet" And Target.Text <> "MH_Inlet_with_Bleed_Screws" Then
         Range("D:D").EntireColumn.Hidden = False
     End If
End Sub

[Brucebelg]

И даже более