Hi Mike

Sub test()
Dim GivenColumn As Long
GivenColumn = 1
Columns(GivenColumn).Find(What:="", _
After:=Cells(1, GivenColumn), _
LookAt:=xlWhole).Select
End Sub

HTH. Best wishes Harald

"Mike W" skrev i melding
...
I am looking for a macro that will select the first blank (empty) cell in
a
given column please.

Thanks,

Mike