Move to first blank cell in a column upon opening workbook

[SanFelippo]

I have hopefully a pretty simple request; I just haven’tcoded anything like this request before so I was hoping you guys could help.
Basically, all I need is some coding that will run uponopening a an excel workbook that will take the user to the first blank cell incolumn A. That’s all.
Any suggestions? (Yes I realize you could just hold controland hit the down arrow, but the people using this workbook are very challengedwhen it comes to excel things, and this is what they want).

 

[DanteAmor]

Not the fastest code going, but the delay is hardly noticeable on my somewhat slow, older laptop and it always selects the proper blank cell...

Private Sub Workbook_Open()
  Cells([MIN(IF(A:A="",ROW(A:A)))], "A").Select
End Sub

It is actually a bit slow, how about the classic loop, while your code goes through all the cells, this loop only does it with the cells with data. And it always selects the proper blank cell too.

Private Sub Workbook_Open()
    i = 1
    Do While Cells(i, "A").Value <> ""
        i = i + 1
    Loop
    Range("A" & i).Select
End Sub

 

[Rick Rothstein]

It is actually a bit slow, how about the classic loop, while your code goes through all the cells, this loop only does it with the cells with data. And it always selects the proper blank cell too.

Private Sub Workbook_Open()
    i = 1
    Do While Cells(i, "A").Value <> ""
        i = i + 1
    Loop
    Range("A" & i).Select
End Sub

You may not have noticed as yet, but I tend to favor compact code and I have a strong leaning toward one-liners. With that said...

[table="width: 500"]
[tr]
	[td]Private Sub Workbook_Open()
  Cells(Evaluate(Replace("MIN(IF(A1:A#="""",ROW(A1:A#)))", "#", Cells(Rows.Count, "A").End(xlUp).Row + 1)), "A").Select
End Sub[/td]
[/tr]
[/table]

 

[DanteAmor]

You may not have noticed as yet, but I tend to favor compact code and I have a strong leaning toward one-liners. With that said...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Private Sub Workbook_Open()
  Cells(Evaluate(Replace("MIN(IF(A1:A#="""",ROW(A1:A#)))", "#", Cells(Rows.Count, "A").End(xlUp).Row + 1)), "A").Select
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

Yes I have noticed that.
I also like to compact the code, as far as my knowledge reaches.
This line is faster, thanks for sharing.