Hi Gary,

In each of your subs you have declared v as a
dynamic array.

From the Immediate window:

?Typename(range("A1:A2").Value)
Variant()

?Typename(range("A1:A1").Value)
String.




---
Regards,
Norman



"Gary''s Student" wrote in message
...
Why does:

Sub qwerty()
Dim r As Range
Dim v()
Set r = Range("A1:A2")
v = r.Value
End Sub

work just fine, but:

Sub qwerty()
Dim r As Range
Dim v()
Set r = Range("A1:A1")
v = r.Value
End Sub

raise a type mismatch error?
--
Gary''s Student - gsnu200727