Событие изменения рабочего листа, если содержимое ячейки очищено, то очистите ячейку рядом с ним

Question

Первая часть кода работает; когда пользователь меняет ячейку на A CC, он вводит правильные значения. Однако, если пользователь удаляет его, я хочу, чтобы комментарий и содержимое ячейки рядом с ним также были удалены. Прямо сейчас, когда я удаляю это, это ничего не изменит. Я попытался Target.Value = "", и он не работает ни.

Sub worksheet_change(ByVal Target As Range)

    Dim WatchRange As Range
    Dim IntersectRange As Range
    Dim lastrow As Long

    'If the cell in row J changes either ACC
        lastrow = Range("A" & Rows.Count).End(xlUp).Row

        Set WatchRange = Range("J9:J" & lastrow)
        Set IntersectRange = Intersect(Target, WatchRange)

        If Target.Count <> 1 Then Exit Sub 'makes sure only one cell is selected

            If Not (IntersectRange Is Nothing) And (Target = "ACC") Then 'if changed to ACC

                Application.EnableEvents = False

                    'Then input what the Poste Recherché was, date time and user
                    Cells(Target.Row, 11).ClearComments
                    Cells(Target.Row, 11).AddComment Application.UserName & vbNewLine & Now & _
                    vbNewLine & "Quart: " & Range("$F$3") & vbNewLine & "Date: " & Range("$F$4")
                    Cells(Target.Row, 11).Value = "ACCEPTÉ: " & Range("$F$2")

                Application.EnableEvents = True

            End If

            If Not IntersectRange Is Nothing And Target Is Empty Then

                Application.EnableEvents = False

                    Cells(Target.Row, 11).ClearComments
                    Cells(Target.Row, 11).ClearContents

                Application.EnableEvents = True

            End If    

End Sub

Answer 1

заменить:

Target Is Empty

на:

Target = ""