Delete cells in current row when deleting cell contents in column

[CMcColm]

I've been trying to do this for a couple of days and I've made some headway but I'm struggling with it. I have made the macro I want but it's the activation I am struggling with.

Range("B" & ActiveCell.Row & ":I" & ActiveCell.Row).ClearContents

That is what I want to activate but I only want to activate it if someone deletes the contents of "J".

It's basically for tracking. "J" must have initials in it before other cells in the row can be modified. I want the whole row to clear if someone puts in their initials, fills in the rest of the row, then deletes their initials.

Thanks!

 

[CMcColm]

I've tried to insert Exit Sub somewhere appropriate but nowhere seems to work.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False

    If Target.Cells.Count > 1 Then
            MsgBox "Change only one cell at a time"
            Application.Undo
            Exit Sub
            
        If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Value = "" Then
            Target.Offset(, 2).Resize(1, 8).ClearContents
    End If
    
    Application.EnableEvents = True
End Sub

Inserting End If still turns up an error except now it is whenever I enter anything anywhere pulling up the no End If error.

 

[jim may]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

If Target.Cells.Count > 1 Then
MsgBox "Change only one cell at a time"
Application.Undo
Application.EnableEvents = True
Exit Sub
End If

If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Value = "" Then
Target.Offset(, 2).Resize(1, 8).ClearContents
End If

Application.EnableEvents = True
End Sub

 

[CMcColm]

Sweet! Thanks for that. I'm trying to keep it too simple I think...