back to origianl position after macro

[liron50]

Hello all,

I'm trying to do a macro that will sort a big table.
I want when the sort ends that the cursor always returns to the place he was at the beginning of the macro.
But by how I did, it always returns to where the macro was recorded.

How can I change it to satisfy with my needs?

Thanks.

 

[VoG]

Hi. If you post the recorded code we can probably fix that.

 

[liron50]

Hello,

I didn't do the macro with code. I just record it.

anyway, this is the code :

Sub sortAll()
ActiveWindow.SmallScroll Down:=1
Range("P205").Select
Range("B1:P205").Select
Range("P205").Activate
Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("K157").Select
End Sub

 

[VoG]

Try this (replace your existing code).

Sub sortAll()
Range("B1:P205").Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

 

[liron50]

Thanks VoG,

it's work perfect.
also it's work more quickly them the first macro
ray: