Trying to Debug...can anyone guide me please?

[mikeb7500]

Private Sub Worksheet_Change(ByVal Target As Range)
'Application.Volatile



Select Case Worksheets("This Project").Range("G3:I3").Value
Case " "
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = True
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = True
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "LEAF FILTER ONLY"
Worksheets("NEW GUTTERS").Visible = False
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = False
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "GUTTERS & LEAF FILTER SAME LENGTH"
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = True
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "GUTTERS & LEAF FILTER DIFFERENT LENGTH"
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = False
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = True
Worksheets("LEAF FILTER ONLY").Visible = FLSE
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
End Select
End Sub

 

[mikeb7500]

Case "" should have no space between the "".

I took the space out, and the lins is still highlighted in yellow

 

[dreid1011]

I took the space out, and the lins is still highlighted in yellow

Is there an error message?

 

[Michael M]

Try it this way

Select Case Worksheets("This Project").Range("G3:I3").Value

Case "LEAF FILTER ONLY"
Worksheets("NEW GUTTERS").Visible = False
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = False
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "GUTTERS & LEAF FILTER SAME LENGTH"
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = True
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "GUTTERS & LEAF FILTER DIFFERENT LENGTH"
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = False
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = True
Worksheets("LEAF FILTER ONLY").Visible = FLSE
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case Else
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = True
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = True
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
End Select
End Sub

 

[mikeb7500]

Is there an error message?

run time error 13

 

[mikeb7500]

Try it this way

Select Case Worksheets("This Project").Range("G3:I3").Value

Case "LEAF FILTER ONLY"
Worksheets("NEW GUTTERS").Visible = False
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = False
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "GUTTERS & LEAF FILTER SAME LENGTH"
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = True
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = False
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case "GUTTERS & LEAF FILTER DIFFERENT LENGTH"
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = False
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = True
Worksheets("LEAF FILTER ONLY").Visible = FLSE
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
Case Else
Worksheets("NEW GUTTERS").Visible = True
Worksheets("GUTTERS & LEAF FILTER SAME").Visible = True
Worksheets("GUTTERS & LEAF FILTER DIFFERENT").Visible = True
Worksheets("LEAF FILTER ONLY").Visible = True
Worksheets("THE CALCULATOR").Visible = True
Worksheets("DATA").Visible = True
Worksheets("1 YEAR PRICING WITH 2225 FIN.").Visible = True
Worksheets("DISCOUNTS").Visible = True
End Select
End Sub

I copied and pasted. Still got mismatched error. I'm done for the night...thank!

 

[Michael M]

Can you upload the workbook to dropbox, or similar hosting site,then post a link to the file back here, so we can take a look at it
Also, noticed an error in Case "GUTTERS & LEAF FILTER DIFFERENT LENGTH"

Worksheets("LEAF FILTER ONLY").Visible = FLSE

 

[dreid1011]

I copied and pasted. Still got mismatched error. I'm done for the night...thank!

The select case range needs to be "G3" only. The "G3:I3" is causing the type mismatch error. At least that is what I found to be the cause when I tested it.