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