Hi all,
I have a worksheet within which the user selects whether an event is either; On-site (Bridport), Customer (UK) or Customer (International) and based on their choice different rows are hidden. There are 6 different events all with the 3 options and therefore different rows to hide.
I have the below code that works well for the first event, however, I'm having problems trying to extend it to the multiple events and options. Can anyone help?
The Target Cells are: B3, B17, B30, B44, B57, B70
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Address = Range("B3").Address Then
With ActiveSheet
Select Case Target.Value
Case "On-site (Bridport)"
.Rows.Hidden = False
Rows("6:11").Hidden = True
Case "Customer (UK)"
.Rows.Hidden = False
Rows("6:8").Hidden = True
Case "Customer (International)"
.Rows.Hidden = False
Case "-"
.Rows.Hidden = False
'add more here as needed
End Select
End With
End If
End Sub
Bookmarks