Hi Anthraquinone and congratulations on your first post.
Try the following:
a. Get the cell location before you start the sort.
b. Get the contents of the other column that you want to go to after the sort is completed.
c. Sort
d. Find the cell that contains the value obtained in b. above and go to that cell.
The following code excerpt may help you with some of the above:
Sub CodeExcerpt()
Dim iRowRelativeToStart As Long
Dim sSavedValue As String
sSavedValue = ActiveCell.Offset(0, 1).Value 'Get the value one cell to the right of the 'Active Cell'
sSavedValue = ActiveCell.Offset(0, -1).Value 'Get the value one cell to the left of the 'Active Cell'
'Option 0 indicates find the first value with an EXACT MATCH
'No Match will generate a runtime error
iRowRelativeToStart = Application.WorksheetFunction.Match(sSavedValue, Range("B:B"), 0)
Cells(iRowRelativeToStart, "B").Select
End Sub
Lewis
Bookmarks