Try this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case ucase(Range("a1").Value)
case "YES"
[20:23].entirerow.hidden = true
case else
[20:23].entirerow.hidden = false
End Select
End Sub


Col


--
colofnature
------------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...o&userid=34356
View this thread: http://www.excelforum.com/showthread...hreadid=548938