Hello There,

I created a active X -ComboBox (from Control Toolbox) and would like to
load it with the sheetnames in my workbook.

This code I have as worksheet code: Credits to Tom O.

Private Sub ComboBox1_Click()
Dim Sh As Worksheet
Dim sVal As String
With ComboBox1
sVal = .Text
Clear
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < "Inputs" Then
AddItem Sh.Name
End If
Next
.Value = sVal
End With
End Sub

1. =Knowing Tom... I do not dare to say that the Combo does not get
loaded ???? !
2. If we can manage to load the Combobox, I would like to write the
selection away to cell: eg. B5.

Any Help really appreciated,

Sige