Actually performance is not bad when I do code like this:
Before the sort:
Sub MarkPreSortRow(lRow)
Table1.AddCol(cNumber, "MarkPreSortRow", 0, False)
Table1.Cell("MarkPreSortRow", lRow) = 1
End Sub
And after the sort:
Sub SelectPreSortTableRow(strColumnName)
Dim i
For i = 0 To Table1.RowCount - 1
If Table1.Cell("MarkPreSortRow", i) = 1 Then
Table1.RemoveCol("MarkPreSortRow")
Table1.SelectCell(strColumnName, i)
Return
End If
Next i
End Sub
And I take it there is nothing better than this.
RBS