Go to empty cell

Hi,

This in the workbook section of your VBA project

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Variant
For x = 1 To 65535 Step 1
If Cells(x, 1).Value = "" Then Cells(x, 1).Activate: Exit Sub
Next
End Sub

Here are a few diffent ways to find a vacant cell, row, column

'find row before next blank cell in column A
iLastRow = Range("A1").End(xlDown).Row

'find last used row in column A
iLastRow = Cells(Rows.Count, "a").End(xlUp).Row

'find last used row on sheet
iLastRow = Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

'find column before next blank cell in row 1
iLastColumn = Range("A1").End(xlToRight).Column

'find last used column in row 1
iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

'find last used column on sheet
iLastColumn = Cells.Find(what:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

To use in code

cells(iLastRow,"A").select
or 
range("a" & iLastRow).select

sweep

You are better off declaring your variable as Long which is more efficient than declarring it as varient

for more info read this page
http://www.cpearson.com/excel/variables.htm

When dealing with an unknown number of rows in Excel I recommend always use Long never Integer