Microsoft Office Forums - View Single Post

gbaker · 06-21-2012, 11:35 AM

Hi Colin,
Like I said I'm new at this. Can't make it work. Code I used based on the information you gave me but I must be doing something wrong because it come up with a runtime error 424 on this line:

With .Range("Cr2:Cr3980")

Here is the code I'm using for my sheet which I will also attach.

Code:

Sub sortnew()
'
' sortnew  Macro
'
'
    With Data
'get rid of any null strings stored in the cells
     With .Range("Cr2:Cr3980")
            .Value = .Value
    End With
    With .Sort
'set up the sort fields
    With .Sort.SortFields
   .Clear
   .Add Key:=Data.Range("Cr2:Cr3980"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   .Add Key:=Data.Range("Cs2:Cs3980"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   .Add Key:=Data.Range("Ct2:Ct3980"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   .Add Key:=Data.Range("Cu2:Cu3980"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     End With
        .SetRange Data.Range("Cs2:DE3980")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlSortColumns
        .SortMethod = xlPinYin
        .Apply
      End With
    End With
 
End Sub