Returns an array of the last four ranges or names selected. Each element in the array is a Range object. Read-only Variant.
expression A variable that represents an Application object.
|Index||Optional||Variant||The index number (from 1 to 4) of the previous range or name.|
Each time you go to a range or cell by using the Name box or the Go To command (Edit menu), or each time a macro calls the Goto method, the previous range is added to this array as element number 1, and the other items in the array are moved down.
This example displays the cell addresses of all items in the array of previous selections. If there are no previous selections, the LBound function returns an error. This error is trapped, and a message box appears.
On Error GoTo noSelections For i = LBound(Application.PreviousSelections) To UBound(Application.PreviousSelections) MsgBox Application.PreviousSelections(i).Address Next i Exit Sub On Error GoTo 0 noSelections: MsgBox "There are no previous selections"