Sorter på ikke navngivet ark

Public Sub udførSortering()
Dim arknavn As String                              'arknavn, der skal sorteres
Dim antalRæk As Integer                            'antal rækker på ark, der skal sorteres
    arknavn = "Ark2"
    antalRæk = findAntalRækker(arknavn)
   
    SorterRækker arknavn, antalRæk
End Sub
Sub SorterRækker(arknavn, sidsteRæk)
'  Sluk lige skærmen
Application.ScreenUpdating = False
'
    ActiveSheet.Rows("3:3").Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
   
    ActiveWorkbook.Worksheets(arknavn).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(arknavn).Sort.SortFields.Add Key:=Range("A3:A" & sidsteRæk) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets(arknavn).Sort
        .SetRange Range("A3:N" & sidsteRæk)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("B2").Select
End Sub
Private Function findAntalRækker(arknavn)
    Sheets(arknavn).Activate
    findAntalRækker = ActiveCell.SpecialCells(xlLastCell).Row
End Function

Hej
Tak for svaret, men er det muligt at lave det uden arknavn? og uden bestemt antal rækker?

Begge dele er nødvendige i koden vedr. sorteringen - hvordan forestiller du dig det ellers?

Jeg tænkte om det var muligt at bruge active sheet i stedet for selve navnet på arket.

Så skal du anvende ActiveSheet.Name

Tak for hjælpen, det virker perfekt. Skriv et svar og få point

Har lagt svar i #1