How can I run this code without making worksheet "Outstanding Checks"
active?

Sub Sort_Checks()
'
' Sort_Checks Macro
'

'
Sheets("Outstanding Checks").Select
Range("A5:D22").Select
ActiveWorkbook.Worksheets("Outstanding Checks").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Outstanding Checks").Sort.SortFields.Add
Key:= _
Range("A5:A22"), SortOn:=SortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Outstanding Checks").Sort
.SetRange Range("A5:D22")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A4").Select
End Sub