How do I store the address of a deleted cell during Worksheet_Change Event?

[Drawleeh]

I know that the worksheet_change event is fired when a cell is deleted. Can I store the address of that cell that was just deleted to use it to then delete the same cell reference in other sheets? For example if I delete A3 on Sheet1, can I then select A3 on Sheet 2 and Sheet 3 and delete it on those ones too in the same worksheet change event?

 

[Joe4]

Try this code, which will remove the value from all other sheets when removed from the sheet with this procedure attached to it:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range
    Dim addr As String
    Dim ws As Worksheet
    Dim shName As String
    
'   Loop through cells just updated
    For Each cell In Target
'       Check to see if value was deleted (so no value left)
        If cell.Value = "" Then
'           Capture cell address and active sheet name
            addr = cell.Address
            shName = ActiveSheet.Name
'           Loop through other sheets
            For Each ws In Worksheets
                If ws.Name <> shName Then
'                   Clear cells on other sheets
                    ws.Range(addr).ClearContents
                End If
            Next ws
        End If
    Next cell

End Sub