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

 

[dreid1011]

What exactly is the issue?

 

[mikeb7500]

What exactly is the issue?

I get a Run-Time Error 13...Mismatch

 

[mikeb7500]

What exactly is the issue?

I get a Run-Time Error 13...Mismatch

 

[dreid1011]

I get a Run-Time Error 13...Mismatch

Can you explain how the code is triggered? I see it's by worksheet change, but you are not checking for a specific cell that has changed? Also, I don't think Select will work like that over a range of cells. Is there one specific cell that should contain the value to show/hide sheets?

 

[Skyybot]

Is cell G13 Merged?

 

[mikeb7500]

Can you explain how the code is triggered? I see it's by worksheet change, but you are not checking for a specific cell that has changed?

What I'm trying to do is display only certain worksheets based on one of 4 options in a drop-down list. (and actually hide certain worksheets in the same workbook, so they can't be completed).
Thanks!

 

[dreid1011]

What I'm trying to do is display only certain worksheets based on one of 4 options in a drop-down list. (and actually hide certain worksheets in the same workbook, so they can't be completed).
Thanks!

Which cell contains the drop down?

 

[mikeb7500]

Which cell contains the drop down?

The Name of the worksheet is "This Project". The Cell that contains the drop down is a merged cell G3:I3.

 

[mikeb7500]

Which cell contains the drop down?

The Name of the worksheet is "This Project". The Cell that contains the drop down is a merged cell G3:I3.