Excel - VBA - How to Clear Cell with an Inputted Value If A Specific Cell is Blank

[CapeCon]

I am seeking help regarding an Excel book I am working on.

What I am trying to do: When cell A6 is empty, automatically clear the inputted text in cell D6 using VBA.

Name of Sheet: Sheet2

I imagine this requires a "worksheet.change" code. I am new to VBA, so I'm not yet sure what the entire code would be for this.

Thank you!

 

[JoeMo]

This is sheet code for Sheet2.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D6")) Is Nothing Then
    If IsEmpty(Range("A6")) Then
        With Application
            .EnableEvents = False
            Range("D6").Value = ""
            .EnableEvents = True
        End With
    End If
End If
End Sub

 

[Marc L]

Hi, you are right so to paste to the Sheet2 worksheet module :​

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$6" Then
        If IsEmpty(Target) Then
            Application.EnableEvents = False
            [D6].ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub