Вот так работает копирование (изменение внесено после Else).
[vba]Код
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
[/vba]
P.S. Проблема была в том, что при запуске кода, который скрывает элементы управления, снималось копирование (исчезала пунктирная граница).