Combobox que se arme de acuerdo a las hojas del documento

Te anexo el código, pon el código en los eventos de la hoja.

Private Sub ComboBox1_DropButtonClick()
'Por.Dante Amor
    actual = ComboBox1.Value
    ComboBox1.Clear
    For Each h In Sheets
        ComboBox1.AddItem h.Name
    Next
    ComboBox1.Value = actual
End Sub

Si no quieres que se cargue la hoja que contiene el combo:

Private Sub ComboBox1_DropButtonClick()
'Por.Dante Amor
    actual = ComboBox1.Value
    ComboBox1.Clear
    For Each h In Sheets
        If h.Name <> ActiveSheet.Name Then
            ComboBox1.AddItem h.Name
        End If
    Next
    ComboBox1.Value = actual
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias