Populate Cell on Combobox Selection

[flindy87]

Hi,

I am trying to get a cell to populate based on what is selected on a combobox for a userform.

Private Sub UserForm_Initialize()
    With Worksheets("Lookup")
        ComboBox1.List = .Range("b12:b" & .Range("b" & .Rows.Count).End(xlUp).Row).Value
       
    End With
    
    Sheets("Controlpage").Range("h28").Value = ComboBox1.Value
    
End Sub

This is the code i have, the combobox populates correctly but the value of the selection will not display on my worksheet.

Any idea why?

Thanks

[Norie]

Put the code to populate the cell in the combobox's Change event.

Private Sub ComboBox1_Change
      Sheets("Controlpage").Range("h28").Value = ComboBox1.Value
End Sub