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

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

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

Working with merged cells is a pain. I do my best to avoid them.

Can you remove the merge, sort the data and then reapply the merge?

(Or do your best to just drop those merged cells completely.)

And did you have merged cells in the range that was being sorted on both
workbooks (on both pcs)?

Alex wrote:

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


--

Dave Peterson

Thanks, Dave again.

I've taken off the merging. This user is already gone. We'll see on Monday
how it'll work.

Best Regards,

Alex

"Dave Peterson" wrote:

Working with merged cells is a pain. I do my best to avoid them.

Can you remove the merge, sort the data and then reapply the merge?

(Or do your best to just drop those merged cells completely.)

And did you have merged cells in the range that was being sorted on both
workbooks (on both pcs)?

Alex wrote:

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


--

Dave Peterson