Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A100], Target) Is Nothing And Target.Count = 1 Then
UserForm1.Left = Target.Left + 150
UserForm1.Top = Target.Top + 90 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm1.Show
End If
End Sub