Друзья, посмотрите, пожалуйста, и подскажите где ошибка (а может и нет такой) в этом макросе и почему он блокирует (делает неактивными) кнопки отмены и возврата действий, в том числе и действие Ctrl+Z? При отключении макроса всё нормализуется.
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes.Range(Array("TextBox 1"))
If Not Application.Intersect(Range("AM4:AM1700, AW4:AW1700, BC4:BC1700"), Target) Is Nothing Then
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.TextFrame2.TextRange.Characters.Text = Target '.Offset(0, -1)
.Visible = True
Else
.Visible = False
End If
End With
End Sub
|
