Hi

I have the following in an excel spreadsheet which sorts a range of cells I have but after its sorted the cells it highlights all the cells and leaves me in the last cell, I can't move anywhere, what can i do to change this.

I Have:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B26:J35").Select
Range("J35").Activate
Selection.Sort Key1:=Range("J26"), Order1:=xlDescending
End Sub

Any help is appreciated.

 

Stick this at the end (to select A1)

Range("A1").Select

 

Thanks for the reply but this didn't work. It just started to select each cell in turn at speed then come up with a debug screen.

Any other ideas?

 

Looks like it's getting stuck in a loop.

Worksheet_SelectionChange will run everytime the cell changes.

I would expect you need the macro to run everytime you update the worksheet rather than move between cells?

If so this should work:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B26:J35").Select
Range("J35").Activate
Selection.Sort Key1:=Range("J26"), Order1:=xlDescending
End Sub

Delete the old macro or that will take priority.