Use a combobox event, Click, Change or some other that suits
Private Sub ComboBox1_Click()
Label1.Caption = Range("B23")
End Sub