VBA - Hide range of rows IF

[adamsmith388]

Never dabbled with VBA before and tried a few things on this forum but can't work out how to manipulate the code to work for me.
Any additional info to speed it up, or prevent crashing when i add more would also be useful.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range (B18!) = "None" Then
Rows("72:82").Entire.Row.Hidden = True
Else
Rows("72:82").Entire.Row.Hidden = False
End IF
End Sub

The concept is if there are Hypothetical calculations needed the rows are visible, if they are not the rows are hidden.
B18 will wither be a simple Yes/No text input or at most a dropdown selection.

 

[adamsmith388]

Unfortunately due to the data we handle, our environment runs in CITRIX so are unable to create mini sheets or add plug-ins that would allow me to do so.

 

[hrayani]

hope below code will help you get what you want

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B18")) Is Nothing Then
If Range("B18").Value = "None" Then
Rows("72:82").EntireRow.Hidden = True
Else
Rows("72:82").EntireRow.Hidden = False
End If
End If
End Sub

 

[Osvaldo Palmeiro]

Maybe this code could do the job.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$18" Then Rows("72:82").Hidden = Target.Value = "None"
End Sub