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