VBA Sort Problem

  • Thread starter Thread starter Tony
  • Start date Start date
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
 
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
 
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
 
Back
Top