I have the below Macro I have been using to up show the previous cells data and it has been working well until I updated my sheet so the cell updates by using a formula instead of manually, now the macro dose not work.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cng As String
Application.EnableEvents = False
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Range("A:A"), Target) Is Nothing Then
cng = Target.Value
Application.Undo
Target.Offset(0, 1) = Target.Value
Target = cng
End If
Application.EnableEvents = True
End Sub
Please Help.