Nicht aktives Sheet sortieren

Sub Sortieren()
j = Sheets("Regelschichtplan").Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A5:OH" & j).Select
ActiveWorkbook.Worksheets("Regelschichtplan").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Regelschichtplan").Sort.SortFields.Add Key:=Range( _
"B6:B" & j), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Regelschichtplan").Sort.SortFields.Add Key:=Range( _
"A6:A" & j), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Regelschichtplan").Sort
.SetRange Range("A5:OH" & j)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub