How to write a macro not worksheet specific

I have a workbook with 52 worksheets – named W01 to W52 each workbook is identical in layout (columns and rows)

I need a macro to sort the range C4:L255 by column C then by column D then by column G.

When I have tries to write these macro I either get the name of the worksheet in it or it want to sort the entire row. As shown in the 2 macros below

Sub Macro1()

' Macro1 Macro

    Range("C4:L255").Select

    ActiveWorkbook.Worksheets("W05").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("W05").Sort.SortFields.Add2 Key:=Range("C4:C255"), _

        SortOn:=xlSortOnValues, ORDER:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("W05").Sort.SortFields.Add2 Key:=Range("D4:D255"), _

        SortOn:=xlSortOnValues, ORDER:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("W05").Sort.SortFields.Add2 Key:=Range("G4:G255"), _

        SortOn:=xlSortOnValues, ORDER:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("W05").Sort

        .SetRange Range("C4:L255")

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Range("C4").Select

End Sub

Sub SortOrder()

' SortOrder Macro

   ActiveSheet.Unprotect

    ActiveSheet.Unprotect

    Rows("4:255").Select

    Range("c4:L255").EntireRow.Sort Key1:=Range("C3"), Key2:=Range("D3"), Key3:=Range("G3"), Header:=xlNo      ' or xlYes

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True