Simpler
[vba]
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$C$5" Then
Me.Rows("122:152").Hidden = Target.Value = "No"
End If
End Sub
[/vba]
Simpler
[vba]
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$C$5" Then
Me.Rows("122:152").Hidden = Target.Value = "No"
End If
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote