Alfabetisch sorteren, vervolgens terugkeren naar de "Activesheet"

[bgoo]

Stel je zit in een sheet, vervolgens wil je alfabetiseren, maar dan zonder uit die sheet te gaan of in ieder geval terug te keren naar de sheet...

Dit is mijn code voor het alfabetiseren.

Dim I As Integer
Dim y As Integer
Dim x As Integer
Dim mySheet As Object
Dim SheetName As String
I = Sheets.Count


For y = 1 To I
Set mySheet = Sheets(y)
SheetName = mySheet.Name
For x = y To I
If SheetName > Sheets(x).Name Then
SheetName = Sheets(x).Name
End If
Next
Sheets(SheetName).Move Before:=Sheets(y)
Next

Danku

 

[Haaren101]

Even onthouden waar je begint, zoiets als

IkBenNuHier = ActiveSheet.Name

Jouw code

Sheets(IkBenNuHier).Select

Ron

 

[bgoo]

thx