Easy Value listing code
Sub dhjsa()
Dim cl As Object
Dim i As Long
i = 4
For Each cl In Sheets("a").Range("A4:Z4").Cells
i = i + 1
Sheets("a").Range("A" & i) = cl.Value
Next cl
End Sub
-----Original Message-----
Hey guys,
I dont know what I did but I lost this code. I need a
code that will look in Range A4:Z4 and then list all the
values of that range in cell A5:A1000.
Thank you.
Todd
.
|