Error #9

[mikeb7500]

I'm new at VBA Coding. "THIS INSTALLATION," Cell J2, is a drop down list of three options. When the option is selected, it generates a 1, 2, or 3, in Cell J3. The following format below I copied from a YouTube video, where I successfully simulted the presenters example...and it worked. But then when I applied it to my workbook, I get error 13 and error 9 messages...any advice please??? Thanks!

Select Case Worksheets("THIS INSTALLATION").Range("J3").Value
Case "1"
Worksheets("LEAFFILTER ONLY").Visible = True
Worksheets("PRICING FOR THIS INSTALLATION").Visible = True
Worksheets("PRICING WITH 2225 FINANCING").Visible = True
Worksheets("THIS INSTALLATION'S TOTALS").Visible = True
Worksheets("CONTRACT").Visible = True
Worksheets("LeafFilter Order Sheet").Visible = True
Worksheets("Gutters (Same)").Visible = False
Worksheets("GUTTERS & LEAFFILTER SAME").Visible = False
Worksheets("Gutters (Different)").Visible = False
Worksheets("GUTTERS & LEAFFILTER DIFFERENT").Visible = False
Case "2"
Worksheets("Gutters (Different)").Visible = False
Worksheets("GUTTERS & LEAFFILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = False
Worksheets("Gutters (Same)").Visible = True
Worksheets("GUTTERS & LEAFFILTER SAME").Visible = True
Worksheets("PRICING FOR THIS INSTALLATION").Visible = True
Worksheets("PRICING WITH 2225 FINANCING").Visible = True
Worksheets("THIS INSTALLATION'S TOTALS").Visible = True
Worksheets("CONTRACT").Visible = True
Worksheets("LeafFilter Order Sheet").Visible = True
Worksheets("Gutter, Fascia, Soffit Sheet").Visible = True
Case "3"
Worksheets("Gutters (Different)").Visible = True
Worksheets("GUTTERS & LEAFFILTER DIFFERENT").Visible = True
Worksheets("PRICING FOR THIS INSTALLATION").Visible = True
Worksheets("PRICING WITH 2225 FINANCING").Visible = True
Worksheets("THIS INSTALLATION'S TOTALS").Visible = True
Worksheets("CONTRACT").Visible = True
Worksheets("LeafFilter Order Sheet").Visible = True
Worksheets("Gutter, Fascia, Soffit Sheet").Visible = True
Worksheets("Gutters (Same)").Visible = False
Worksheets("GUTTERS & LEAFFILTER SAME").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = False
Worksheets("LeafFilter Order Sheet").Visible = True
Worksheets("Gutter, Fascia, Soffit Sheet").Visible = True
End Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

End Sub

 

[BigBeachBananas]

A few issues I can see.

Error 13 type mismatch.
Make sure the format of cell J3 is a string text and not a number.

Error 9- subscript out of range. The code couldn't find the worksheet. You had an inconsistent capitalization of "LEAFFILTER ONLY" and "LeafFilter Order Sheet". Make sure the sheet names match EXACTLY.

Select Case Worksheets("THIS INSTALLATION").Range("J3").Value
    Case "1"
        Worksheets("LEAFFILTER ONLY").Visible = True
        Worksheets("PRICING FOR THIS INSTALLATION").Visible = True
        Worksheets("PRICING WITH 2225 FINANCING").Visible = True
        Worksheets("THIS INSTALLATION'S TOTALS").Visible = True
        Worksheets("CONTRACT").Visible = True
        Worksheets("LeafFilter Order Sheet").Visible = True
        Worksheets("Gutters (Same)").Visible = False
        Worksheets("GUTTERS & LEAFFILTER SAME").Visible = False
        Worksheets("Gutters (Different)").Visible = False
        Worksheets("GUTTERS & LEAFFILTER DIFFERENT").Visible = False
    Case "2"
        Worksheets("Gutters (Different)").Visible = False
        Worksheets("GUTTERS & LEAFFILTER DIFFERENT").Visible = False
        Worksheets("LEAFFILTER ONLY").Visible = False
        Worksheets("Gutters (Same)").Visible = True
        Worksheets("GUTTERS & LEAFFILTER SAME").Visible = True
        Worksheets("PRICING FOR THIS INSTALLATION").Visible = True
        Worksheets("PRICING WITH 2225 FINANCING").Visible = True
        Worksheets("THIS INSTALLATION'S TOTALS").Visible = True
        Worksheets("CONTRACT").Visible = True
        Worksheets("LeafFilter Order Sheet").Visible = True
        Worksheets("Gutter, Fascia, Soffit Sheet").Visible = True
    Case "3"
        Worksheets("Gutters (Different)").Visible = True
        Worksheets("GUTTERS & LEAFFILTER DIFFERENT").Visible = True
        Worksheets("PRICING FOR THIS INSTALLATION").Visible = True
        Worksheets("PRICING WITH 2225 FINANCING").Visible = True
        Worksheets("THIS INSTALLATION'S TOTALS").Visible = True
        Worksheets("CONTRACT").Visible = True
        Worksheets("LeafFilter Order Sheet").Visible = True
        Worksheets("Gutter, Fascia, Soffit Sheet").Visible = True
        Worksheets("Gutters (Same)").Visible = False
        Worksheets("GUTTERS & LEAFFILTER SAME").Visible = False
        Worksheets("LEAFFILTER ONLY").Visible = False
End Select