yup. Thanks

Private Sub ComboBox1_Change()

Application.Range("R1") = ComboBox1.ListIndex

End Sub