How to use macros that can work on different Worksheets

Remember CODE /CODE tagswhen posting code on the forum. Thanks. Fixed abive.

Maybe like so:

    With ActiveSheet
        .Range("P2:P240").Select
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("P2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange .Range("A2:AT17")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With