Thread: 400 Error For Simple Code

Hi,

This code is really simple, but I am getting a 400 error. Essentially, I just want the range to change, depending upon what is in cell A4. Any help is much appreciated. Thank you.

Sub dropdown()
ActiveSheet.Name = "Graph Data"
ThisType = Cells("a4").Value
Select Case Range("Ranges")
Case Is = 1
Range("R32:U36") = "GraphRange"
Case Is = 2
Range("R39:T43") = "GraphRange"
Case Is = 3
Range("R46:R50") = "GraphRange"
End Select
End Sub

My Apologies.

Code:

Sub dropdown()
ActiveSheet.Name = "Graph Data"
Cells("a4").Value
Select Case Range("Ranges")
     Case Is = 1
          Range("R32:U36") = "GraphRange"
     Case Is = 2
          Range("R39:T43") = "GraphRange"
     Case Is = 3
          Range("R46:R50") = "GraphRange"
End Select
End Sub

Yes it was in error. It should read:

Code:

Sub dropdown()
ActiveSheet.Name = "Graph Data"
Ranges = Cells("a4").Value
Select Case Range("Ranges")
     Case Is = 1
          Range("R32:U36") = "GraphRange"
     Case Is = 2
          Range("R39:T43") = "GraphRange"
     Case Is = 3
          Range("R46:R50") = "GraphRange"
End Select
End Sub

When I run the debugger, it does not stop anywhere and only comes up with the error. Any suggestions as how to figure out exactly what the issue is?

I realized that right after I posted and went back and edited. Trying to break old habits!