Sorter kolonner med makro efter arknavn er ændret

Hej
Jeg skal sortere nogle kolonner i et ark via en makroknap på arket.
Så skal arket kopieres og arknavnet rettes. Så virker makroen ikke i det nye ark, fordi jeg blot har optaget makroen.
Så ændrede jeg i makroen således:

    Range("A6:C85").Select
    ActiveWorkbook.ActiveWorksheets.Sort.SortFields.Clear
    ActiveWorkbook.ActiveWorksheets.Sort.SortFields.Add2 Key:=Range( _
        "C6:C85"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With Sort
        .SetRange Range("A6:C85")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Men det virker heller ikke...….hvad skal der stå i stedet for ActiveWorksheets ?

Hilsen Dorte