VBA to hide the rows in Microsoft Excel

**Lanka Boy** · 14-01-2012

I am new to Excel and VBA. I am trying to hide rows based on whether the user enters a specific word(s)/phrase into a specific cell. For example, if cell M49 has a value of "i love lucy", then unhide rows 50 through 55, if cell M49 is empty or has any other value than "i love lucy", then hide the rows. How do I implement that? So if you guys have any information or any ideas for this then please let me know.

**Panop** · 14-01-2012

According to my information you should try the below code.

Code:

' Sheet 1 Class Module
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M49")) Is Nothing Then Exit Sub
If LCase(Range("M49").Value) = "i love lucy" Then
Range("A50:A55").EntireRow.Hidden = False
Else
Range("A50:A55").EntireRow.Hidden = True
End If
End Sub