Hoe zat dat ook al weer

[masala09]

Hoe zat dat ook al weer. Voor alle bladen krijg ik het wel voor elkaar om de namen in een combobox te plaatsen, maar het is de bedoeling dat de eerste 7 niet erin meegaan.

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        Cmb_Bladnamen.AddItem ws.Name
    Next

Ik meen mij iets te herinneren met

    For i = 8 to Worksheets(Sheets.Count)
        Cmb_Bladnamen.AddItem (i) ws.Name
    Next

Maar ik kom niet uit. Wel krijg ik het voor elkaar met enkel de bladnummers, maar dat is niet de bedoeling.

 

[Niels28]

je was er bijna

 For i = 8 To Sheets.Count
        Cmb_Bladnamen.AddItem Sheets(i).Name
    Next

Niels