A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Hi,
note:
replace Please Select..., with Please Select (without dots)
now,
- right click on sheet tab, select View Code and paste in the following:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
[A4:A7].EntireRow.Hidden = False
Select Case Target.Value
Case Is = "Please Select" '1
[A4:A7].EntireRow.Hidden = True
Case Is = "Single Rate" '2
[A5:A7].EntireRow.Hidden = True
Case Is = "Economy 7" '3
[A6:A7].EntireRow.Hidden = True
Case Is = "Comfort Plus White" '4
[A7].EntireRow.Hidden = True
Case Is = "Comfort Plus Control" '5
[A5,A7].EntireRow.Hidden = True
Case Is = "Off Peak" '6
[A5:A6].EntireRow.Hidden = True
End Select
End If
End Sub
- press Alt+Q to close visual basic
- save your file as xlsm (macros enabled workbook)