Скрыть ячейки

[Skif-F]

Вот код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [C11].Address Then
        Select Case Target.Value
            Case 1
                Range("6:9").RowHeight = 0
                Range("11:11").RowHeight = 14
            Case 2
                Range("6:8").RowHeight = 0
                Range("9:11").RowHeight = 14
            Case 3
                Range("6:7").RowHeight = 14
                Range("8:9").RowHeight = 0
                Range("11:11").RowHeight = 0
            Case 4
                Range("6:9").RowHeight = 14
                Range("11:11").RowHeight = 0
        End Select
    End If
End Sub

Файл тоже вложен, но учти, что при значениях 3 и 4 в ячейке С11 скроется и сама ячейка

[Skif-F]

А можно использовать свойство Hidden:

            Case 1
                Rows("6:9").Hidden = True
                Rows(11).Hidden = False
            Case 2
                Rows("6:8").Hidden = True
                Rows("9:11").Hidden = False
            Case 3
                Rows("6:7").Hidden = False
                Rows("8:9").Hidden = True
                Rows(11).Hidden = True
            Case 4
                Rows("6:9").Hidden = False
                Rows(11).Hidden = True

[MEXAHNK]

Сообщение от Skif-F

Вот код:[CODE]
Файл тоже вложен, но учти, что при значениях 3 и 4 в ячейке С11 скроется и сама ячейка

Ты супер человек! Инфа просто жизненно необходима.
Я вчера сидел и ждал ответа по 10 раз обновлял страницу чтоб быстрее получить ответ - думал не дождусь. К вечеру я уже разочаровался. И блин только сегодня зайдя на сайт я обнаружил вторую страницу с твоим ответом, хотя мог еще вчера посмотреть.

Написал код для своих расчетов-не работает. Проверил на новой книге-работает. Потом разобрался в чем проблема но не могу ее решить. В коде скрытие строк ссылается на ячейку С11, в свою очередь в расчете есть список который связан с ячейкой С11, то есть при выборе в списке определенной строчки значение ячейки С11 принимает вид от 1 до 4. Пробовал сделать код не на С11 а на ячейку D11 в которой записывал =С11 не работает. Работает только тогда когда вводишь вручную значение в ячейку на которую ссылается код.
В чем здесь ошибка?
И при скрытии ячеек не скрываются поля со списком. Я приложил примерчик.