Quote:
Originally Posted by BjornS
Hi,
I am more a "formula expert", but I looked around a little, stole some code and modified it 
Here we go:
Right click the sheet tab. Select "View code".
Paste the code below. Modify sort column if wanted (A1 at the moment). Leave with Alt+Q.
Done!
Kind regards
Bjorn
Private Sub Worksheet_Change(ByVal Target As Range)
'Sort this sheet by column A
'Written by OzGrid Business Applications
'www.ozgrid.com
'small modification by Bjorn 2010-10-02
On Error Resume Next
Application.EnableEvents = False
Me.UsedRange.Sort _
Key1:=[A1], Order1:=xlAscending, Header:=xlYes, Orientation:=xlSortColumns
Application.EnableEvents = True
On Error GoTo 0
End Sub |
No luck, man. Maybe it's because I didn't change the sort column (How do I?), but upon opening and closing, all the data remains the same.
10-03-2010, 05:17 PM
Similar Threads
Sorting question
Windows XP 
Office 2003
Hybrid Mode