Sortering i sub

Hejsa.

Jeg kan ikke få nedenstående kode til at køre. Jeg får fejlmeldinger i de linier markeret med * under selection.sort. Hvordan *"# får jeg den til at køre?
Den del af koden, der giver fejl er optaget med makro. Fedt at Excel ikke fatter sit eget sprog!!!!!


"""
Private Sub CommandButton1_Click()
Dim selskabsnr, i, t, q As Integer
Dim startmd, Rmd, aar As Double
Rmd = 0
aar = 1

*Sheets("pfsize").Activate
*ActiveSheet.Cells.Select
*Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, *Header:=xlGuess, _
*OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   
For i = 1 To 68
    selskabsnr = Worksheets("pfsize").Cells(i + 1, 1)
    'find selskabets kolonnetal
    startmd = 25 + (aar * 12)
    For t = 1 To 12
        Rmd = (Worksheets("Afkast").Cells(startmd + t - 1, selskabsnr + 2)) - 1
       
        Sheets("1992s").Activate
        ActiveSheet.Cells(1, i + 5).Select
        ActiveCell.FormulaR1C1 = selskabsnr
        ActiveSheet.Cells(t + 1, i + 5).Select
        ActiveCell.FormulaR1C1 = Rmd
    Next t
Next i
End Sub
""""

Jeg håber meget, der er en der vil hjælpe mig, da jeg er temmelig presset.


Venligst

Morten