Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Target.MergeCells Then
        If Target.CountLarge > 1 Then Exit Sub
    End If
    Select Case Target.Column
    Case 4, 4
        If Target.Row > 5 Then
            bu = True
            With Me.TextBox1
                .Top = Target.Top: .Left = Target.Left: .Text = Target(1).Value: .Activate
            End With

            With Me.ListBox1
                .Top = Target.Top - 20: .Left = Target.Left + 143: .Clear
            End With
            cl = IIf(Target.Column = 4, 4, 4): bu = False
            Me.TextBox1.Visible = True: Me.ListBox1.Visible = True
        End If
    Case Else
        Me.TextBox1.Visible = False: Me.ListBox1.Visible = False
    End Select
End Sub