Assign default value to combobox from Range

[mjtolent]

Hi All,

I'm trying to assign the default value to a combobox on my userform. Combobox is linked to a named range and the default value needs to be a value which is held in the registry, which is pulled in using the code below.

Dim Division1 As String
Division1 = GetSetting(appname:="TCL", section:="DemaExcel", _
                       Key:="Division1", Default:="550")
                    
Worksheets("Sheet1").Range("A1") = Division1

The combobox should default to the value in cell A1.
Thanks
MJ