Thanks, Dave.
Sorry, for the confusion. Of course, there is the same sheet name. I just
didn't change it in my posting properly.
Worksheets("Sheet1").Range("B4").Sort _
Key1:=Worksheets("Sheet1").Columns("B"),
Order1:=xlAscending, _
Header:=xlGuess

So, the Key is on the same sheet but I have the error.


"Dave Peterson" wrote:

Your range and the key to sort by have to be on the same sheet. In fact, the
key has to be part of the range.

Are you positve it worked on any pc?



Alex wrote:

The code is working perfectly on my computer.
But, on the one user computer it's generate an error message: "Rin-time
error '1004'. This operation requires the merged cells to be identically
sized'

Worksheets("Sheet").Range("B4").Sort _
Key1:=Worksheets("Initiatives").Columns("B"),
Order1:=xlAscending, _
Header:=xlGuess

Could anybody help me on it?

Thanks

--

Dave Peterson