A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
You have to detect the last changed cell (resp. cells) by yourself.
Andreas.
Option Explicit
Dim LastTarget As Range, LastActiveCell As Range
Private Sub Worksheet_Change(ByVal Target As Range)
'Check previous cell
If LastActiveCell Is Nothing Then
'No previous cell => 1st change
Else
Debug.Print "LastActiveCell ", LastActiveCell.Address
End If
If LastTarget Is Nothing Then
'No previous cell => 1st change
Else
Debug.Print "LastTarget ", LastTarget.Address
End If
Set LastTarget = Target
Set LastActiveCell = ActiveCell
End Sub