VBA to delete contents of cell if another cell has content

[SpartanAOD]

Hello everyone,

I would like a macro that deletes any value in F1 if there is any value present in A1, and conversely, delete any value in A1 if there is any value in F1. So essentially, there can't be a value in A1 and F1 at the same time. I would prefer that this macro be automatic, but only for the sheet, "Staffing Chart"

Is this something that could be done?

 

[sericom]

Try this in your Staffing Chart sheet code (right click sheet tab, view code, then paste the code in)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1,F1")) Is Nothing Then
        Application.EnableEvents = False
        If Target = Range("A1") Then Range("F1") = "" Else Range("A1") = ""
        Application.EnableEvents = True
    End If
End Sub

 

[SpartanAOD]

Works beautifully! Thank you so much!