Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim frm As UserForm1

Set frm = New UserForm1
frm.ComboBox1.AddItem Target.Value
frm.Show

Set frm = Nothing
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"gregork" wrote in message
...
Hi all,
I have a BeforeDoubleClick on a worksheet that activates a user form for
entering data on to a sheet. What I want is for the value of the cell that
I
double clicked to be entered in to a Combo Box (ComboBox1) on my userform.
If it is possible to write a code for this I would greatly appreciate some
help with the code.

Regards
gregork