In case it helps, I call the function  when the userform is initiallised using
the following code.


Private Sub UserForm_Initialize()
With cboDatabase
.AddItem "RMS_RDM_TTY_QUOTES"
.AddItem "RMS_RDM_TREATY"
.Value = "RMS_RDM_TTY_QUOTES"
End With

cboAnalysisLoad (cboDatabase.Value)

End Sub