Remove this line:
Sub dropdown()
You have two Subs but only one end Sub, regardless, you can't nest subs like that.
See if this does what you want:
<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br> <SPAN style="color:#007F00">' Code goes in the Worksheet specific module</SPAN><br> <SPAN style="color:#00007F">Dim</SPAN> rng <SPAN style="color:#00007F">As</SPAN> Range<br> <SPAN style="color:#007F00">' Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")</SPAN><br> <SPAN style="color:#00007F">Set</SPAN> rng = Target.Parent.Range("F9")<br> <SPAN style="color:#007F00">' Only look at single cell changes</SPAN><br> <SPAN style="color:#00007F">If</SPAN> Target.Count > 1 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br> <SPAN style="color:#007F00">' Only look at that range</SPAN><br> <SPAN style="color:#00007F">If</SPAN> Intersect(Target, rng) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br> <SPAN style="color:#007F00">' Action if Condition(s) are met</SPAN><br> <SPAN style="color:#007F00">' Do your thing here</SPAN><br> <SPAN style="color:#00007F">Select</SPAN> <SPAN style="color:#00007F">Case</SPAN> Target.Text<br> <SPAN style="color:#00007F">Case</SPAN> "Aluminum"<br> Columns("P:Y").Hidden = <SPAN style="color:#00007F">True</SPAN><br> Columns("K:O").Hidden = <SPAN style="color:#00007F">False</SPAN><br> <SPAN style="color:#00007F">Case</SPAN> "Plastic"<br> Columns("K:O").Hidden = <SPAN style="color:#00007F">True</SPAN><br> Columns("T:Y").Hidden = <SPAN style="color:#00007F">True</SPAN><br> Columns("P:S").Hidden = <SPAN style="color:#00007F">False</SPAN><br> <SPAN style="color:#00007F">Case</SPAN> "Other"<br> Columns("K:S").Hidden = <SPAN style="color:#00007F">True</SPAN><br> Columns("W:Y").Hidden = <SPAN style="color:#00007F">True</SPAN><br> Columns("T:V").Hidden = <SPAN style="color:#00007F">False</SPAN><br> <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Select</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
It sets the target range so the code's not always running and to me a Select Case structure is easier to read.