Array / For Next

Prøv dette eksempel.....

Sub FormaterArk()
    Dim x As Worksheet
    For Each x In Application.ActiveWorkbook.Worksheets
        If x.Index > 2 Then
            x.Range("a1") = "Test"
        End If
    Next
End Sub

Sub test2()
'vælg alle worksheet pånær nr 1
Dim x
Dim i As Long
ReDim x(Worksheets.Count - 2)
For i = 2 To Worksheets.Count
    x(i - 2) = Worksheets(i).Name
Next
Sheets(x).Select


'Formater så alt det du lyster
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With

End Sub

Tak for hjælpen begge 2, fobian du får pointene da du svarede først.

fobian--> Jeg har lidt problemer med at få det til at køre, den dør på denne linie: Rows(Række & ":" & Række).Select

Sub formatering()

Dim x As Worksheet
   
'On Error Resume Next
Sheets(1).Activate
   
    For Each x In Application.ActiveWorkbook.Worksheets
        If x.Index >= 2 Then
            x.Activate
           
            For Række = 10 To 30 Step 2
              Rows(Række & ":" & Række).Select
                With Selection.Interior
                  .ColorIndex = 36
                  .Pattern = xlSolid
                End With
            Next Række
        End If
    Next
End Sub

Har fundet problemet, min fejl koden virker perfect.