Try this:

Sub temp()
Dim x As ComboBox
Set x = Me.ComboBox1
Range("A2") = x
Range("B7").Select
End Sub

Art