Need to add to an event in VBA and can't

[Bryy2001]

Hello! I have an event in VBA that is hiding columns and rows based on a users input into a cell (in this case B3). See code below:

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("C:R").EntireColumn.Hidden = False
Rows("9:57").EntireRow.Hidden = False
If Target.Address = "$B$3" Then
Select Case Target.Value
Case Is = "Sunday"
Columns("E:R").EntireColumn.Hidden = True
Rows("41:46").EntireRow.Hidden = True
Case Is = "Monday"
Columns("C:D").EntireColumn.Hidden = True
Columns("G:R").EntireColumn.Hidden = True
Rows("43:46").EntireRow.Hidden = True
Case Is = "Tuesday"
Columns("C:F").EntireColumn.Hidden = True
Columns("I:R").EntireColumn.Hidden = True
Rows("41:42").EntireRow.Hidden = True
Rows("44:46").EntireRow.Hidden = True
Case Is = "Wednesday"
Columns("C:H").EntireColumn.Hidden = True
Columns("K:R").EntireColumn.Hidden = True
Rows("41:43").EntireRow.Hidden = True
Rows("45:46").EntireRow.Hidden = True
Case Is = "Thursday"
Columns("C:J").EntireColumn.Hidden = True
Columns("M:R").EntireColumn.Hidden = True
Rows("41:44").EntireRow.Hidden = True
Rows("46").EntireRow.Hidden = True
Case Is = "Friday"
Columns("C:L").EntireColumn.Hidden = True
Columns("O:R").EntireColumn.Hidden = True
Rows("41:45").EntireRow.Hidden = True
Case Is = "Saturday"
Columns("C:N").EntireColumn.Hidden = True
Columns("Q:R").EntireColumn.Hidden = True
Rows("41:46").EntireRow.Hidden = True

End Select

End If

End Sub

I want to add something additional to the event but keep getting an error. I want to hide certain rows based on values entered in B4 as well, but cant seem to get the code right. Any help would be appreciated.

[protonLeah]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[Bryy2001]

Please Login or Register  to view this content.

[Norie]

You should just be able to add the code for B4 after End If.

[Bryy2001]

I got it! Thank you all!

Bryan