Problem getting cell value from range var

[Guest]

I am running the following test macro code to display content of the first
cell in a verticle single column named range that contains about 20 items and
am getting a q=Error 2042 runtime 13 type mismatch error. How do I get the
first cell content correctly?

q = Range("jde_NewData")(1).Value
MsgBox "x=" & q

 

[Tom Ogilvy]

Sub efg()
Dim q As String
q = Range("jde_NewData")(1).Text
MsgBox "x=" & q

End Sub