Loop gennem ark i en projektmappe

et hurtigt forslag

for x =2 to activework.sheets.count
  sheets(x).activate
next

Lidt for hurtigt :-)
for x =2 to activeworkbook.sheets.count
  sheets(x).activate
next

En hurtig en der virkede ! næsten og det kan jeg nok leve med, men problemet er at fanerne ikke nødvendigvis ligger i rækkefølge.

Jeg ville gerne lave mit loop gennem de arkbetegelser der vises i træ strukturen i VBA editoren.

Kan man det

Jeg ved man kan aktivere dem med en simpel Ark5.activate, men jeg kan ikke få loopet til at virke.

Chris

Rækkefølgen af fanerne ændres inde i VBA-editoren.
Du gør det ved at navngive arkene i alfabetisk / numerisk rækkefølge - det er ikke de samme navne som de har ude i fanerne i Excel. Du får vinduet op med mulighed for navngivning ved at trykke på F4 - herefter trykker du på hvert ark og sætter "(Name)" properti'en til det ønskede.

chrira-> det er arkenes CodeName du er efter her.
Jeg synes ikke det er så enkelt at tage disse ud og sortere dem, men det kan da lade sig gøre, med en lidt større kode.
Der er sikkert nogle der har en enklere kode, men lige nu kan jeg ikke rigtig se andre udveje

Sub RaekkeFoelge()
Dim ar()
ReDim ar(1 To ActiveWorkbook.Sheets.Count)
Dim cn As New Collection

For i = 1 To ActiveWorkbook.Sheets.Count
    ar(i) = Sheets(i).CodeName
Next
BubbleSort ar()
For i = 1 To UBound(ar)
    For Each s In ActiveWorkbook.Sheets
        If ar(i) = s.CodeName Then
        cn.Add s, s.CodeName
        Exit For
        End If
    Next
Next
For i = 2 To cn.Count
'********* DIN KODE HER **********
    cn(i).Activate
    cn(i).Range("A2") = i
'*********************************
Next
Set cn = Nothing
End Sub
Sub BubbleSort(list())
'  Sorts an array using bubble sort algorithm
    Dim First As Integer, Last As Long
    Dim i As Long, j As Long
    Dim Temp As String
   
    First = LBound(list)
    Last = UBound(list)
    For i = First To Last - 1
        For j = i + 1 To Last
            If list(i) > list(j) Then
                Temp = list(j)
                list(j) = list(i)
                list(i) = Temp
            End If
        Next j
    Next i
End Sub

chris, skal vi ikke have spm. lukket inden jul :-)