Worksheet.Sort (Excel)

Returns a Sort object.

Dim srtSort As Sort
Set srtSort = ActiveSheet.Sort