resultaten gedefinieerde naam oplijsten

[dddddd]

Beste,

Ik heb een excel met meerdere werkbladen.

Cel B10 op iedere werkblad staat het factuurnummer. deze heb ik een gedefinieerde naam gegeven.

Weet iemand hoe ik op een nieuw/blanco werkblad alle factuurnummers onder elkaar krijgen van die verschillende werkbladen ?

alvast bedankt !

 

[Warme bakkertje]

Nieuw blad helemaal achteraan.

Sub tst()
    For i = 1 To Sheets.Count - 1
        Sheets(Sheets.Count).Cells(i, 1) = Sheets(i).Range("B10")
    Next
End Sub

 

[dddddd]

dankjewel !

kan je dit combineren met andere cellen maw ik zou ook graag alle E7 & F12 cellen hebben.

dus een lijstje met

gegevens b10 - gegevens e7 - gegevens f12

kan deze macro automatisch uitgevoerd worden als er een nieuw werkblad bijkomt ?
Macro's zijn voor mij volledig nieuw.

of zijn er nog andere mogelijkheden ?

 

[Warme bakkertje]

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    For i = 1 To Sheets.Count - 1
        Sheets(Sheets.Count).Cells(i, 1).Resize(, 3) = Array(Sheets(i).Range("B10"), Sheets(i).Range("E7"), Sheets(i).Range("F12"))
    Next
End Sub

Zet deze in ThisWorkbook.