Востановить формулу записанную в ячейке, при записи в ней любого числа изаписать это в ячейку другого листа

[roborrr]

Здравсвуйте! в книге MagaliTi.xlsm имеется два листа. В ячейке первого листа Sheet2.cells(1.1) записана любая формула exel.
нужен макрос, который при записи любого числа в эту ячейку , это число записывал в ячейку Sheet1.cells(1.1) второго листа, а в ячейку Sheet1.cells(1.1) востановливал прежднюю формулу.

[roborrr]

нашел решение, вопрос исчерпан. вот код :

Dim storedFormula As String
Dim isFormulaStored As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        On Error GoTo CleanExit

        ' Копируем значение в Sheet1 (используется объектное имя Sheet1)
        Sheet1.Cells(Target.Row, Target.Column).Value = Target.Value

        ' Восстанавливаем формулу, если она была сохранена
        If isFormulaStored Then
            Me.Cells(Target.Row, Target.Column).Formula = storedFormula
        End If

CleanExit:
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        ' Сохраняем формулу только один раз
        If Not isFormulaStored Then
            storedFormula = Me.Cells(Target.Row, Target.Column).Formula
            isFormulaStored = True
        End If
    End If
End Sub