Please help with "simple" code issue
 

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.

Please help with "simple" code issue
 

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.

Please help with "simple" code issue
 

On Oct 18, 12:46 am, "papou"
wrote:
Hello Andrew
What is the exact error?

HTH
Cordially
Pascal

"Andrew" a écrit dans le message de news:
om...





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.

Pascal,
I've run the code twenty times without fail. So I cannot get an
error message for you. Maybe it is healed. Thanks.

Andrew