Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long
derlig = Range("B" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("B4:B" & derlig)) Is Nothing Then
UserForm1.Show
End If
End Sub