In the worksheet code that the combobox exists in:

Option Explicit
Dim myCell As String

Private Sub ComboBox1_Change()
Range(myCell).Value = ComboBox1.Value
Range(myCell).Select
End Sub

Private Sub ComboBox1_GotFocus()
myCell = ActiveCell.Address
End Sub


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=545237