VBA Macro to get Last cell
'VBA Macro to get Last cell
Sub Lastcells1()
Sheets("Sheet1").Range("a1").Select
Selection.End(xlDown).Select
x = ActiveCell.Row + 1
MsgBox x
Sheets("Sheet1").Range("a1").Select
Selection.End(xlToRight).Select
y = ActiveCell.Column + 1
MsgBox y
End Sub
Sub Lastcells1()
Sheets("Sheet1").Range("a1").Select
Selection.End(xlDown).Select
x = ActiveCell.Row + 1
MsgBox x
Sheets("Sheet1").Range("a1").Select
Selection.End(xlToRight).Select
y = ActiveCell.Column + 1
MsgBox y
End Sub
Comments
Post a Comment