Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Y As Double
Dim X As Double
Y = Target.Top + Me.Rows(3).Top - Me.Rows(ActiveWindow.ScrollRow).Top
X = Target.Left
Range("A1").Value = X
Range("A2").Value = Y
UserForm1.Show
End Sub