Hello all, I am rather new to VBA, and am making a spreadsheet in which I originally intended to have multiple worksheet changes. Only to find out I can only have one. My problem is the code I have, and the amount of changes has almost reached the limit for just one data validation cell (I had to trim it already because I was getting a "too large" error. I cannot combine all the changes I need in one worksheet change macro because the size is WAY to large. I have about 47 data validation drop down boxes, and most, but not all have 50+ drop down choices. Each choice of the drop down causes a corresponding pre-designed shape to become visible, while all other shapes corresponding to the other drop down choices that were not chosen are made to be not visible. Each of the shapes will have a distinctive name, so it is hundreds of names.
This is the code I was wanting to use for just one of the drop down cells(had to trim it because of the length), I need to write 46 more of these for the other cells. Is there some other method I can go about this? 


Private Sub Worksheet_Change(ByVal Target As Range)


   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

   If Target.Address = "$F$6" Then

Select Case Range("F6").Value
    
    Case "24"
        ActiveSheet.Shapes("tombstone-1").Visible = True
        ActiveSheet.Shapes("inputTS").Visible = True
        ActiveSheet.Shapes("4-2-1").Visible = True
        ActiveSheet.Shapes("8-2-1").Visible = False
        ActiveSheet.Shapes("11-2-1").Visible = False
        ActiveSheet.Shapes("14-2-1").Visible = False
        ActiveSheet.Shapes("17-2-1").Visible = False
        ActiveSheet.Shapes("20-2-1").Visible = False
        ActiveSheet.Shapes("23-2-1").Visible = False
        ActiveSheet.Shapes("26-2-1").Visible = False
        ActiveSheet.Shapes("8-4-1").Visible = False
        ActiveSheet.Shapes("11-4-1").Visible = False
        ActiveSheet.Shapes("14-4-1").Visible = False
        ActiveSheet.Shapes("17-4-1").Visible = False
        ActiveSheet.Shapes("20-4-1").Visible = False
        ActiveSheet.Shapes("23-4-1").Visible = False
        ActiveSheet.Shapes("26-4-1").Visible = False
        ActiveSheet.Shapes("11-8-1").Visible = False
        ActiveSheet.Shapes("12-8-1").Visible = False
        ActiveSheet.Shapes("14-8-1").Visible = False
        ActiveSheet.Shapes("15-8-1").Visible = False
        ActiveSheet.Shapes("17-8-1").Visible = False
        ActiveSheet.Shapes("18-8-1").Visible = False
        ActiveSheet.Shapes("20-8-1").Visible = False
        ActiveSheet.Shapes("21-8-1").Visible = False
        ActiveSheet.Shapes("23-8-1").Visible = False
        ActiveSheet.Shapes("24-8-1").Visible = False
        ActiveSheet.Shapes("26-8-1").Visible = False
        ActiveSheet.Shapes("tfc-4-1").Visible = False
        ActiveSheet.Shapes("tfc-777-1").Visible = False
        ActiveSheet.Shapes("tfc-7-1").Visible = False
        ActiveSheet.Shapes("tfc-8-1").Visible = False
        ActiveSheet.Shapes("tfc-9-1").Visible = False
        ActiveSheet.Shapes("tfc-12-1").Visible = False
        ActiveSheet.Shapes("tfc-16-1").Visible = False
        ActiveSheet.Shapes("lpi-1").Visible = False
        ActiveSheet.Shapes("eq-1").Visible = False

....(skipped over to trim length)...
 
    Case "PIN"
        ActiveSheet.Shapes("tombstone-1").Visible = False
        ActiveSheet.Shapes("inputTS").Visible = True
        ActiveSheet.Shapes("4-2-1").Visible = False
        ActiveSheet.Shapes("8-2-1").Visible = False
        ActiveSheet.Shapes("11-2-1").Visible = False
        ActiveSheet.Shapes("14-2-1").Visible = False
        ActiveSheet.Shapes("17-2-1").Visible = False
        ActiveSheet.Shapes("20-2-1").Visible = False
        ActiveSheet.Shapes("23-2-1").Visible = False
        ActiveSheet.Shapes("26-2-1").Visible = False
        ActiveSheet.Shapes("8-4-1").Visible = False
        ActiveSheet.Shapes("11-4-1").Visible = False
        ActiveSheet.Shapes("14-4-1").Visible = False
        ActiveSheet.Shapes("17-4-1").Visible = False
        ActiveSheet.Shapes("20-4-1").Visible = False
        ActiveSheet.Shapes("23-4-1").Visible = False
        ActiveSheet.Shapes("26-4-1").Visible = False
        ActiveSheet.Shapes("11-8-1").Visible = False
        ActiveSheet.Shapes("12-8-1").Visible = False
        ActiveSheet.Shapes("14-8-1").Visible = False
        ActiveSheet.Shapes("15-8-1").Visible = False
        ActiveSheet.Shapes("17-8-1").Visible = False
        ActiveSheet.Shapes("18-8-1").Visible = False
        ActiveSheet.Shapes("20-8-1").Visible = False
        ActiveSheet.Shapes("21-8-1").Visible = False
        ActiveSheet.Shapes("23-8-1").Visible = False
        ActiveSheet.Shapes("24-8-1").Visible = False
        ActiveSheet.Shapes("26-8-1").Visible = False
        ActiveSheet.Shapes("tfc-4-1").Visible = False
        ActiveSheet.Shapes("tfc-777-1").Visible = False
        ActiveSheet.Shapes("tfc-7-1").Visible = False
        ActiveSheet.Shapes("tfc-8-1").Visible = False
        ActiveSheet.Shapes("tfc-9-1").Visible = False
        ActiveSheet.Shapes("tfc-12-1").Visible = False
        ActiveSheet.Shapes("tfc-16-1").Visible = False
        ActiveSheet.Shapes("lpi-1").Visible = True
        ActiveSheet.Shapes("eq-1").Visible = False
        
        End Select
    
End If
End Sub