Excel Macro: Select first empty cell in a column
Excel Macro: Select first empty cell in a column
(OP)
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?
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?
RE: Excel Macro: Select first empty cell in a column
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
RE: Excel Macro: Select first empty cell in a column
techsupportgirl@home.com