Try This...
![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range On Error GoTo Deb Application.EnableEvents = False For Each cell In Target If Target.Column >= 2 And Target.Column <= 9 And WorksheetFunction.CountBlank(Range("B" & Target.Row & ":I" & Target.Row)) = 8 Then Range("SC" & Target.Row).Resize(Target.Rows.Count, 26).ClearContents End If Next cell Deb: Application.EnableEvents = True End Sub
Bookmarks