Workbook SheetChange

[trough]

I have written plenty of VBA code but never used the event routines, until now. I have a need to perform some actions if certain things happen to certain cells throughout the workbook so I have zeroed in on the Workbook_SheetChange event to cover all sheets. I think I have a decent handle on how to use this except I can't find answers to the following:

1) If a cell clear/delete triggered the event then how do I find what was in the cell before it was cleared?

2) If the cell was moved (i.e. dragged to another cell or a cut/paste occurred) how do I find what new cell the data went to?

Thanks.

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.EnableEvents = False

'For first question
Application.Undo
For Each cel In Target
    MsgBox "Previous value : " & cel
Next
Application.Undo

'For second question
MsgBox Target.Address

Application.EnableEvents = True
End Sub

 

[trough]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.EnableEvents = False

'For first question
Application.Undo
For Each cel In Target
    MsgBox "Previous value : " & cel
Next
Application.Undo

'For second question
MsgBox Target.Address

Application.EnableEvents = True
End Sub

Thanks.

 

[trough]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.EnableEvents = False

'For first question
Application.Undo
For Each cel In Target
    MsgBox "Previous value : " & cel
Next
Application.Undo

'For second question
MsgBox Target.Address

Application.EnableEvents = True
End Sub

I thought this was what I was looking for except I found it returns you to the cell that was changed and doesn't advance to the next cell upon hitting <enter> as Excel normally would so it kind of messes up the normal functionality of working in Excel.

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
Application.EnableEvents = False

'For first question
Application.Undo
For Each cel In Target
    MsgBox "Previous value : " & cel
Next
Application.Undo
If Target.Count = 1 Then ActiveCell(1, 2).Select 'move right
'If Target.Count = 1 Then ActiveCell(1, 0).Select 'move left
'If Target.Count = 1 Then ActiveCell(0, 1).Select 'move up
'If Target.Count = 1 Then ActiveCell(2, 1).Select 'movedown

'For second question
MsgBox Target.Address

Application.EnableEvents = True
End Sub