Try this...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B1" Then
Application.ScreenUpdating = False
Select Case Target.Value
Case "A"
Range("Range1,Range5").EntireRow.Hidden = True
Range("Range2,Range3,Range4").EntireRow.Hidden = False
Case "B"
Range("Range1,Range4").EntireRow.Hidden = True
Range("Range2,Range3,Range5").EntireRow.Hidden = False
Case "C"
Range("Range3,Range4,Range5").EntireRow.Hidden = True
Range("Range1,Range2").EntireRow.Hidden = False
End Select
Application.ScreenUpdating = True
End If
End Sub
Bookmarks