"Manage Range of object Global failed" while passing Values

[abi_learn_vba]

Hi

I am getting "Manage Range of object Global failed" error while i am passing an range value to sort a set of data. Please see my code below am i wrong somewhere?

here rng = C3:C932

Sub srt1(ByVal books As Worksheet, ByVal rng As Range, ByVal val As Double)
    books.sort.SortFields.Clear
    books.sort.SortFields.Add Key:=[COLOR=red]Range(rng),[/COLOR] SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With books.sort
        .SetRange Range("A2:T" & val)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Even if i use Activesheet.Range(rng) i am getting "Application Defined or Object defined Error"

Am i going wrong somewhere?

Thanks
-Abi

 

[VoG]

Perhaps

books.Sort.SortFields.Add Key:=books.Range(Rng), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

 

[abi_learn_vba]

I tried it but now i am getting "Method Range of object _Worksheet failed" error....... not sure what is going wrong.

 

[VoG]

If rng is a range defined by Set rng = whatever then try

books.Sort.SortFields.Add Key:=Rng, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

 

[abi_learn_vba]

Thank you.. i know i was wrong somewhere... thanks for clarifing that...