CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_namen2box.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

Public Sub OVBAde_ExcelNamen2ComboBox()
  Dim oCell As Object
    
    ' Es werden alle Zellinhalte des Namens "List4Box" eingefügt!
    For Each oCell In Range("List4Box")
        cmbBox1.AddItem oCell.Value ' Meine ComboBox heisst cmbBox1
    Next oCell
    
    Set oCell = Nothing
End Sub