Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 12 Or Target.Column < 4 Then Exit Sub
Cancel = True
With ComboBox1
.Top = Target.Top
.Left = Target(1, 2).Left
.Visible = True
.Activate
.SelStart = 0
.SelLength = Len(.Text)
.DropDown
End With
End Sub
Private Sub ComboBox1_LostFocus()
With ComboBox1
[Codes].Cells(.ListIndex + 1).Copy .TopLeftCell(1, 0)
If .ListIndex = -1 Then .TopLeftCell(1, 0) = "": .Text = ""
If Len([Codes].Cells(.ListIndex + 1)) > 4 Then _
.TopLeftCell(1, 0).HorizontalAlignment = xlGeneral
.Visible = False
End With
End Sub