Hide Rows Based on Drop Down List Selection

[BRYCEPIETROWIAK]

Hello - I am trying to find the best way to update my VBA code to show the number of content item tables based on the number you select in the drop down in cell D3. For example, if you select 3, I would like the New Content Upload Request, Content Item #1, Content Item #2 & Content Item #3 tables to appear and hide Content Item #4 & Content Item #5 tables.

Here is a link to my file.

 

[BRYCEPIETROWIAK]

Here is my current code.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim PayType As Range
Set PayType = Range("D3")

If Intersect(Target, PayType) Is Nothing Then Exit Sub
'add as many data sets as required
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim Rng4 As Range
Dim Rng5 As Range

'add as many options as you require
Dim FindHdg1 As Range
Dim FindHdg2 As Range
Dim FindHdg3 As Range
Dim FindHdg4 As Range
Dim FindHdg5 As Range

'put your headings in the brackets & add more headings if required
Set FindHdg1 = Cells.Find("CONTENT ITEM #1")
Set FindHdg2 = Cells.Find("CONTENT ITEM #2")
Set FindHdg3 = Cells.Find("CONTENT ITEM #3")
Set FindHdg4 = Cells.Find("CONTENT ITEM #4")
Set FindHdg5 = Cells.Find("CONTENT ITEM #5")

Dim RowsToHide As Range
Set RowsToHide = Range("A16:A1048576")


'add a case for each option in your drop-down & and add more if required
    Select Case PayType
        Case Is = "ALL - DO NOT SELECT"
            Cells.EntireRow.Hidden = False
       
        Case Is = "1"
            Cells.EntireRow.Hidden = False
            Set Rng1 = FindHdg1.CurrentRegion
            RowsToHide.EntireRow.Hidden = True
            Rng1.EntireRow.Hidden = False
       
        Case Is = "2"
            Cells.EntireRow.Hidden = False
            Set Rng2 = FindHdg2.CurrentRegion
            RowsToHide.EntireRow.Hidden = True
            Rng2.EntireRow.Hidden = False
       
        Case Is = "3"
            Cells.EntireRow.Hidden = False
            Set Rng3 = FindHdg3.CurrentRegion
            RowsToHide.EntireRow.Hidden = True
            Rng3.EntireRow.Hidden = False
                   
        Case Is = "4"
            Cells.EntireRow.Hidden = False
            Set Rng3 = FindHdg3.CurrentRegion
            RowsToHide.EntireRow.Hidden = True
            Rng3.EntireRow.Hidden = False
           
        Case Is = "5"
            Cells.EntireRow.Hidden = False
            Set Rng3 = FindHdg3.CurrentRegion
            RowsToHide.EntireRow.Hidden = True
            Rng3.EntireRow.Hidden = False
    End Select
   
End Sub