Sorting columns during sheet deactivation

Hi,

I would like to sort some columns alphabetically when deactivating a sheet. If I use the Worksheet_Deactivate command to trigger the macro then it immediately needs activating again to do the sorting, hence an infinite loop is started.

So far I have:

Private Sub Worksheet_Deactivate()

Application.ScreenUpdating = False

Worksheets("Data Library").Columns("C:X").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
ActiveWindow.LargeScroll ToRight:=-1

Application.ScreenUpdating = True

End Sub

This fails to run on the 'Worksheets..' line.

Please can anybody help?

That seems to work perfectly, thanks very much Holger!

I can't see how to mark this thread as 'solved'

Originally Posted by pnewbury

I can't see how to mark this thread as 'solved'

FYI.

"mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes."