Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("A4:A38")) Is Nothing Then
        bu = True
        With Me.TextBox1
            .Top = Target(1).Top: .Left = Target(1).Left: .Text = Target(1).Value: .Activate
        End With
    
        With Me.ListBox1
            .Top = Target(1).Top: .Left = Target(1).Left + 100: .Clear
        End With
        bu = False
        Me.TextBox1.Visible = True: Me.ListBox1.Visible = True
    Else
        If Me.TextBox1.Visible = True Then
            Me.TextBox1.Visible = False: Me.ListBox1.Visible = False
        End If
    End If
    
End Sub