Easy Value listing code

  • Thread starter Thread starter Todd Huttenstine
  • Start date Start date
T

Todd Huttenstine

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
 
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
 
Back
Top