With worksheets("Sheet1")
.Activate
if isemtpy(.range("a1")) then
.range("a1").Activate
else
.cells(rows.count,1).End(xlup)(2).Activate
End if
End With

--
Regards,
Tom Ogilvy

"Rune_Daub " wrote in message
...
A simple question.
When i press s userform commandbutton, I want it to activate the first
empty cell in the A collumn..
But how??

I can figure out as much as range(xxxxx).activate... But how do I get
it to recognise the first empty cell?

I have thought of a countv(A:A)+1

But I cant get it to work properly..

Rune Daub


---
Message posted from http://www.ExcelForum.com/