Добавление ячеек.

[Vladimir17M]

Добрый день всем! Такая проблема 2 листа нужно чтобы при добавление в первом листе в ячейку A1 значения (текстового) на втором листе между ячейками B2 и C2 добавился 1 столбец.
Заранее спасибо!

[motorway]

Вот пример:
вставьте в код первого листа:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Address = "$A$1") Then
Worksheets(2).Select
Worksheets(2).Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
End Sub

[Vladimir17M]

motorway большое тебе человеческое спасибо, все работает так как нужно!