How to turn this into private function w/ arguments

[franklin_m]

I've got a bit of code that works great, but I'd like to turn it into a private function w/ arguments so I can avoid hard coding info each time I use it in another piece of code. What I have that works great is:

Set ws = Worksheets("Report")
ws.Columns("H:J").Sort Key1:=ws.Range("J2"), Order1:=xlAscending, Header:=xlYes, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Ideally, I'd like to pass, as arguments, the sheetname, columns, column to sort on, and ascending or descending. You can assume that the sheets will all be in the same workbook. Also, would like to do it w/o selecting or activating if that's possible.

Thanks.