Скрыть строки макросом

[Вадим12091965]

Всем привет. Есть идея, не могу реализовать. При значении ячейки F5=1 должны скрыться определенные строки, а при значении F5=2 показаться скрытые и скрыться другие. Я не силен в VBA. Кому-то задание покажется пустяком, но у меня не получается.
Private Sub F5_Change()
If F5 =1 Then
Rows("11:20").Select
Range("E11").Activate
Selection.EntireRow.Hidden = True
End If
End Sub
Пробовал перед F5 добавить название листа, но код краснеет, видимо неправильно. Прошу помочь.

[EducatedFool]

Воспользоваться поиском — религия не позволяет?
http://excelvba.ru/code/ConditionalRowsDeleting

Среди вариантов макроса, изложенных в статье и комментах,
есть и в точности то, что вам нужно.

[Вадим12091965]

Спасибо за подсказку. Сделал рабочий вариант:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F5") = 1 Then
Rows("11:20").Select
Range("E11").Activate
Selection.EntireRow.Hidden = True
Else
Rows("11:20").Select
Range("E11").Activate
Selection.EntireRow.Hidden = False
End If
End Sub
Мне нужно добавить условие:
Если F5=2, то скрываются строки 9, 10, 15-20; иначе - показываются.
Если F5=3, то скрываются строки 9, 10, 17-20; иначе - показываются.
Если F5=4, то скрываются строки 9, 10, 19-20; иначе - показываются.
Если F5=5, то скрываются строки 9, 10; иначе - показываются.
И здесь я встрял. Может добавите хотя-бы одно условие, а дальше я по аналогии разберусь. Заранее благодарен.

[IgorGO]

видимо, так:

rows(9).resize(2).hidden = [f5]=5
rows(15).resize(6).hidden = false
if [f5] > 1 and [f5] < 5 then rows(13+[f5]*2).resize(5-[f5]).hidden = true