Indholdsfortegnelse

Sub Macro1()
    Dim n As Integer
    Dim Current As Worksheet

    n = 0
    For Each Current In Worksheets
        If Current.Name <> "Ark25" Then
            n = n + 1
            Worksheets("Ark25").Cells(n, 1).Value = Current.Range("K1").Value
        End If
    Next
End Sub

Mange tak for hjælpen acore

Godt, at du kunne bruge det