1) Delete the Module1 that you added, the code we are creating does not go there.
2) Double click the Sheet1(all) in the VBAProject on the left to open the "all" sheet module
3) Paste in this event code into that module... this macro will run itself each time B1 is edited.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
Select Case Target.Value
Case "New Account Request"
Range("A9").EntireRow.Hidden = True
Case "New Level Add"
Range("A5:A8,A12:A13,A18,A20:A33,A68:A76,A83,A85,A88,A91,A94,A96:A97").EntireRow.Hidden = True
Case "New User Add"
Range("A5:A8,A10:A49,A68:A76,A83:A99").EntireRow.Hidden = True
End Select
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Example: http://screencast.com/t/cvEiAr1MmO8t
Bookmarks