combo box maken met alle sheets in een werkmap

[Eastw00d]

Op internet had ik de volgende code gevonden

For Each sh In Sheets 
c00 = c00 & "|" & sh.Name
Next
ComboBox1.List = Split(Mid(c00, 2), "|")

Deze genereerd een lege combobox.

Is er een andere manier?

Ik wil dit gaan gebruiken om verborgen sheets weer te geven en door de opdracht click weer zichtbaar te maken

 

[VenA]

ComboBox1.List = Application.Transpose(Split(Mid(c00, 2), "|"))

 

[Eastw00d]

genereerd nog steeds een lege combobox. zie bestand

Bekijk bijlage Map1.xlsm

 

[VenA]

Heeft toch niks met het Change event te maken?

Private Sub UserForm_Initialize()
For Each sh In Sheets
  c00 = c00 & "|" & sh.Name
Next sh
ComboBox1.List = Application.Transpose(Split(Mid(c00, 2), "|"))
End Sub

 

[snb]

@V&A

application.transpose is overbodig.