find/search

J

Juli

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

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
[email protected]
Juli said:
I would like to record a command in a macro that finds the next blank row
in a database. Any ideas?
 
D

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
 
Top