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