Using Debug.Print with Range Variable with more than one cell

[ExcelMonkey]

I have a range variable. I want to print its value to the Immediate Window
upon selection of it.

Currently I use this to do so:
var1 = Target
Debug.Print var1

However this fails if the range is greater than one cell. How can I modify
this to print all values in the selection?

Thanks

EM

 

[Jacob Skaria]

var1 = Range("A1:A10")
For Each strval In var1
Debug.Print strval
Next

 

[Jeff]

This way your range can be dynamic

Sub way()
Dim yourVariable As Range
Dim i As Long
Set yourVariable = Selection
For i = 1 To Selection.Cells.Count
Debug.Print yourVariable(i)
Next
End Sub

 

[ExcelMonkey]

Thanks

var1 = Range("A1:A10")
For Each strval In var1
Debug.Print strval
Next