Actieve tablad selecteren

[edsel_nl]

Beste Bezoeker,

Ik gebruik de onderstaande code om horizontaal te sorteren echter wil ik de macro gebruiken op het geselecteerde tabblad en niet op tabblad "1". Heeft iemand een idee hoe ik de code dan moet aanpassen

Voorbeeld()
    ActiveWorkbook.Worksheets("1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1").Sort.SortFields.Add Key:=Range("D3:AG3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1").Sort
        .SetRange Range("D3:AG45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Alvast bedankt!

 

[Roncancio]

Zo?

Voorbeeld()
    Activesheet.Sort.SortFields.Clear
    Activesheet.Sort.SortFields.Add Key:=Range("D3:AG3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1").Sort
        .SetRange Range("D3:AG45")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin  
        .Apply
    End With
End Sub

Met vriendelijke groet,


Roncancio