VBA Sort Problem

T

Tony

I have five different areas on a worksheet that I want to sort separately.
When it gets to the fourth section ("A43:f" & DMcnt), I get the following
error message:

"RunTime Error 1004
This operation requires the merged cells to be identically sized."

Not sure what I am doing wrong, any suggestions?

I use the following code for each group like this:

With Worksheets("CASB-Toronto Central Phone List").Range("a12:f" & AMcnt)
.Sort _
Key1:=.Columns(6), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Worksheets("CASB-Toronto Central Phone List").Range("a21:f" & BMcnt)
.Sort _
Key1:=.Columns(6), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Worksheets("CASB-Toronto Central Phone List").Range("a33:f" & CMcnt)
.Sort _
Key1:=.Columns(6), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Worksheets("CASB-Toronto Central Phone List").Range("a43:f" & DMcnt)
.Sort _
Key1:=.Columns(6), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
With Worksheets("CASB-Toronto Central Phone List").Range("a50:f" & EMcnt)
.Sort _
Key1:=.Columns(6), _
Order1:=xlAscending, _
Header:=xlNo
End With
 
D

Dave Peterson

You have merged cells in that range.

Reformat the cells to remove the merged cells.

In xl2003 menus,
select the range
format|cells|alignment tab|uncheck merge cells
 
C

Craig

sounds like there is a merge cell somewhere in the list in the sheet, it is
probably not your VBA but the spreadsheet that has the problem. Try
highlighting all the cells in the fourth area and take all merge options off.

Craig
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top