na sorteren terug gaan naar laatste geselecteerde cel

[kesis]

Is het mogelijk dat na 't sorteren je automatisch terug gaat naar laatst geselecteerde cel?
hierbij de macro.
bij voorbaat dank, waar er een smily staat is een dubbele :

Range("A3:z150").Select
ActiveWorkbook.Worksheets("Buren").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Buren").Sort.SortFields.Add Key:=Range( _
"d3:d150"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Buren").Sort
.SetRange Range("A3:z150")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 

[HSV]

Zonder gebruik te maken van select blijf je op dezelfde cel.

Er wordt gesorteerd op kolom A.

Sub hsv()
With Worksheets("Buren")
 .Range("A3:z150").Sort .[a3], , , , , , , 1
End With
End Sub

 

[kesis]

werkt perfect nog 1 vraag

lekkere korte code
ga nu meteen al mijn macro's aanpassen

het sorteren gaat nu van laag naar hoog.
ik wil dit graag van hoog naar laag
alvast bedankt

 

[HSV]

Van hoog naar laag.

.Range("A3:z150").Sort .[a3],[COLOR=#ff0000] 2[/COLOR], , , , , , 1

 

[kesis]

ook dit werkt perfect

Bedankt