How to leave Selection.Sort Key open....
Added the search code, but still......
Error on "DataOption1:=xlSortNormal".
Sub Macro99()
LastRowColA = Range("c65536").End(xlUp).Row
ActiveCell.CurrentRegion.Sort _
Key1:=Intersect(ActiveCell.CurrentRegion,
ActiveCell.EntireRow).Cells(1, 1), _
Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub
|