Excel Macro: Select first empty cell in a column

Question

Excel Macro: Select first empty cell in a column

buggs13 (MIS)

(OP)

3 Jun 00 13:52

I am trying to build a macro that will select the first empty cell in column "A" for all worksheets in a workbook.

So far I have this:

Sub Go_To_First_Empty_Cell()
'
' Go_To_First_Empty_Cell Macro

Dim ws, Asheet
Set Asheet = Worksheets(ActiveSheet.Name)
Application.ScreenUpdating = False
    For Each ws In Worksheets
        ws.Select
        Application.Goto Reference:=ws.Range("A1"), Scroll:=True
        Selection.End(xlDown).Select

    Next ws
Asheet.Activate
Application.ScreenUpdating = True

End Sub

This gets me to the last cell with data in column "A".  I want to select the cell below that.

Any help?

Dreamboat (Instructor) · Answer 1 · 2000-06-04 11:04:58

Put this after Application.ScreenUpdating = True

ActiveCell.Offset(1, 0).Select

I recorded it and couldn't figure out why it would have the range A1, but it doesn't select

techsupportgirl@home.com

Dreamboat (Instructor) · Answer 2 · 2000-06-04 11:05:49

Sorry, disregard the last line of my prior post.

techsupportgirl@home.com

Come Join Us!

Posting Guidelines

Excel Macro: Select first empty cell in a column