Selecting the cell in Column A

[Fred Holmes]

Is there a more elegant way than:

Sub CellInColumn1Select()
While ActiveCell.Column > 1
ActiveCell.Offset(0, -1).Select
Wend
End Sub

To select the cell in Column A / Column 1?

Is there some syntax that will produce the Range address of the cell
in Column A directly?

Thanks,

Fred Holmes

 

[Paul B]

Fred, looks like you are selecting the cell below the last cell with data,
if that is the case try this

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

 

[acampbell012]

Something like:

Sub Adddress()
If ActiveCell.Column <> 1 Then
MsgBox ActiveCell.Offset(0, -1).Address
End If
End Sub

 

[Fred Holmes]

No, I am trying to select the cell in Column one on any row of the
worksheet -- before launching (showing) a UserForm that is a
customized "Data, Form". I'm using the worksheet in its normal view,
and I want to launch the userform in order to be able to read/enter
data more easily using the UserForm. I get screwy error messages and
the UserForm.Show produces an error message on occasion. Selecting
the cell in Column A before launching the UserForm seems to fix
things.

Excel 2000.

Thanks,

Fred Holmes