find/search

[Guest]

I would like to record a command in a macro that finds the next blank row in a database. Any ideas?

 

[Don Guillett]

Sub nextblankrow()
x = ActiveCell.End(xlDown).row+1 'for row number
'x = ActiveCell.End(xlDown).Offset(1).Address 'for address
MsgBox x
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)

I would like to record a command in a macro that finds the next blank row

in a database. Any ideas?

 

[Don Guillett]

Why do you wan to select??? If to copy, etc there is USUALLY no reason to
select anything.

ActiveCell.End(xlDown).row+1.select