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]

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

Change the following lines of code to this:

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

 

[mikeb7500]

Change the following lines of code to this:

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

I changed it per your suggestion, now I get a run time code 9 Subscript out of range

 

[mikeb7500]

I changed it per your suggestion, now I get a run time code 9 Subscript out of range

 

[dreid1011]

Hm, I am not sure why that would be. I copied your code exactly and only changed those two lines since then and it is working as I expect it should. When you get the error and click debug, is it highlighting a line of your code?

 

[mikeb7500]

Hm, I am not sure why that would be. I copied your code exactly and only changed those two lines since then and it is working as I expect it should. When you get the error and click debug, is it highlighting a line of your code?

No highlighting now...just the run time error window

 

[dreid1011]

No highlighting now...just the run time error window

Is there any other code in the sub or just what you've posted?

 

[mikeb7500]

Is there any other code in the sub or just what you've posted?

just what I posted...copied and pasted it.

 

[dreid1011]

just what I posted...copied and pasted it.

Okay, double check all your sheet names and make sure they are accurate.

 

[mikeb7500]

Okay, double check all your sheet names and make sure they are accurate.

I did, and now my Case " " is highlighted in yellow.

 

[dreid1011]

I did, and now my Case " " is highlighted in yellow.

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