关于 单元格值的改变和自动触发宏

关于 单元格值的改变和自动触发宏 在线等
excel大侠们 小弟求救来了 

小弟在做一个excel表，遇到一个问题，试了一下午还没解决，前来求救。

简言之，在一个工作表里，我把A1的取值用 数据有效性 下拉菜单 限定为0或1
然后我想实现选0的时候隐藏第2行，选1的时候显示第2行
本来想的使用worksheet_selectionchange来做，但是发现一旦选定之后就没办法改了（就是选了0之后没办法改成1了，因为一点A1，用来实现隐藏第2行的宏就运行了）

现在想请大侠们帮忙完善这段vba，能让它实现自由选择的功能。

感激不尽！！

[解决办法]
用Worksheet_Change事件！
如：

VBScript code

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Address(0, 0) <> "A1" Then Exit Sub    Sheet1.Rows("2:2").EntireRow.Hidden = Target = 0End Sub
[解决办法]
VBScript code
For r = 5 To 1200    If Range("P" & r).Value <> "" Then        i = Range("P" & r).Value        j = Range("Q" & r).Value        Rows("i:j").Hidden = True    End IfNext