Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Sub AllRowValues()
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastRow
Debug.Print Cells(i, 1).Value
Next i
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment