No evento changue

If range ("A1").value ="ON" Then
range ("A2").value = "OFF"
range ("A3").value = "OFF"
End if

Faça o mesmo para os outros casos dentro do mesmo evento.

No evento changue

If range ("A1").value ="ON" Then
range ("A2").value = "OFF"
range ("A3").value = "OFF"
End if

Faça o mesmo para os outros casos dentro do mesmo evento.

Se abriu a planilha ???

Uma possibilidade

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MsgRT As String

Application.EnableEvents = False
    Select Case Target.Address
    Case "$A$1"
        If Range("A1").Value = "ON" Then
            Range("A2,A3,A4").Value = "OFF"
            MsgRT = MsgBox("Ativado !", vbInformation, "Status")
        End If
    Case "$A$2"
        If Range("A2").Value = "ON" Then
            Range("A1,A3,A4").Value = "OFF"
            MsgRT = MsgBox("Ativado !", vbInformation, "Status")
        End If
    Case "$A$3"
        If Range("A3").Value = "ON" Then
            Range("A1,A2,A4").Value = "OFF"
            MsgRT = MsgBox("Ativado !", vbInformation, "Status")
        End If
    End Select
Application.EnableEvents = True
End Sub