Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A11")) Is Nothing Then
UserForm1.Show
For i = 1 To 10
With UserForm1
.Controls("TextBox" & i).Value = Target.Offset(, i - 1).Value
End With
Next i
End If
Range("A1").Select
End Sub