Sort Function

I'm setting up a public function that sorts after i add an item

Public Function Sort2()
Dim ws2 = worksheet
Set ws2 = Sheets("REGION")
        
ws2.Range("A1:A5000").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Function

This function works on the other sort i've done on the GOV sheet, but now it doenst work here.

Any ideas why this wouldnt work. It says that it is a select method of range class failed error.

Thanks

Hi

Try changing

Selection.Sort Key1:=Range("A1")

to

Selection.Sort Key1:=ws2.Range("A1")

HTH

rylo

Thanks for getting back to me.

Public Function Sort1()
Set ws1 = Sheets("GOV")
        
ws1.Range("A6:K5000").Select
Selection.Sort Key1:=ws1.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Function

This one works... however this one still doesnt

Public Function Sort2()
Set ws2 = Sheets("REGION")
        
ws2.Range("A1:A18").Select
Selection.Sort Key1:=ws2.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Function

It is basically the same, however the second one comes up with errors. Any ideas?

Hi

I'd assumed that you were actually on ws2 when running the macro. If you are not then try

Set ws2 = Sheets("REGION")
        
ws2.Range("A1:A18").Sort Key1:=ws2.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

rylo