Товарищи. Необходимо каким-то образом привязать текст в надписи (вставка-надпись) к значению определённой ячейки так, чтобы копий надписи было много, и все они обновлялись при обновлении данных ячейки.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("TextBox 1").OLEFormat.Object.Text = Target.Value
ActiveSheet.Shapes("TextBox 2").OLEFormat.Object.Text = Target.Value
'...
ActiveSheet.Shapes("TextBox n").OLEFormat.Object.Text = Target.Value ' или цикл
End If
End Sub