Hello Andrew
What is the exact error?

HTH
Cordially
Pascal

"Andrew" a écrit dans le message de news:
...
I am trying to get a worksheet (named data) to automatically sort
itself when the workbook opens. It should sort according to column
D. This code has been placed in the workbook code module.

Private Sub workbook_open()
Worksheets("data").Range(Cells(1, 1), Cells(50000, 7)).Sort
Key1:=Worksheets("data").Range("D2")
End Sub

I ran this code about 4 or 5 times, and it worked every time. Then it
stopped working for no apparent reason. I get an error when I run
it. Help please.

thanks.