VBA sorting error

[andrewb90]

Hello All,

I used the macro recorder to sort a range automatically and it seemed to work when I recorded it, but now I get an error, I was hoping someone could help me figure out why

Sub range()    range("B5:V341").Select
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Add Key:=range("B5:B341"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Add Key:=range("D5:D341"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Add Key:=range("C5:C341"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Shed").Sort
        .SetRange range("B5:V341")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End Sub

thanks,

Andrew

 

[Michael M]

what error do you get ?
have you added / modified rows / columns ??

 

[My Aswer Is This]

Try this:
The script did not like the name you gave the script.
"Sub Range" is not a good name
After changing the name it worked for me.

Sub MY_Sort()
range("B5:V341").Select
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Add Key:=range("B5:B341"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Add Key:=range("D5:D341"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Shed").Sort.SortFields.Add Key:=range("C5:C341"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Shed").Sort
        .SetRange range("B5:V341")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With


End Sub

 

[andrewb90]

wow, I feel dumb....Thank you!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

wow, I feel dumb....Thank you!