list over ark's navn

Det kan man godt.

Hvor skal listen anbringes?

Lav et tomt ark og navngiv den Menu

kør så makroen


Public Sub ListArk()
    Dim Ws As Object, I As Integer
    I = 2
    For Each Ws In ActiveWorkbook.Sheets

        If Ws.Name <> "Menu" Then
            Cells(I, "A") = Ws.Name
            Cells(I, "B") = Ws.Range("A12")
            I = I + 1
        End If
    Next

End Sub

Jeg har lav en tom ark ved navn Menu
når jeg kør makroen fejl (Can't execute code in break mode)

liste skal anbringes i ark faktura oversigt fra cell A3+B3 og ned af. kun hvis det er muligt. tak

Det funger finde min fejl. kan men fra vælger to ark. master. og kunde list.

så er den supper.. tak

Public Sub ListArk()
    Dim Ws As Object, I As Integer
    I = 3
    For Each Ws In ActiveWorkbook.Sheets
' ark. master. og kunde list., bemærk at det skal skrives som det står i arkfanen
' med store og små bogstaver
        If Ws.Name <> "master" Or Ws.Name <> "kunde list" Then
            Worksheets("faktura").Cells(I, "A") = Ws.Name
            Worksheets("faktura").Cells(I, "B") = Ws.Range("A12")
            I = I + 1
        End If
    Next

End Sub

Tak kabbak det funder perfikt et svar tak

et svar ;-))