Looking for alternative code to one currently in use

[ipbr21054]

I have the following code in use.
Its currently in cell P7

It works & does what it should do but it breaks so easily in respect of the code not being assigned to the cell P7 or if i manually type in the cell P7 the formula is gone.

=IF(N7="LAND ROVER","G",IF(N7="BMW MINI","X",IF(N7="ROVER","N",IF(N7="SUSPENSION","M",""))))

So i am looking for something a little more robust as im currently having to type the formula back in.

Thanks

 

[ipbr21054]

Well ive come up with this code from another sheet.
It doesnt give me an error but i cant believe myself.

Private Sub Worksheet_Change(ByVal Target As Range)     
    Application.EnableEvents = False
    
    If Not Application.Intersect(Target, Range("E6,F6,G6,H6,I6,J6,E7,P6,P7,Q6,R6,S6,T6,U6")) Is Nothing Then
        Target(1).Value = UCase(Target(1).Value)
    End If
    If Not Intersect(Target, Range("N7")) Is Nothing Then


       If UCase(Target.Value) = "LAND ROVER DISCO II" Then Range("P7").Value = "G"
       If UCase(Target.Value) = "BMW MINI" Then Range("P7").Value = "X"
       If UCase(Target.Value) = "ROVER 75" Then Range("P7").Value = "N"
       If UCase(Target.Value) = "SUSPENSION FOB" Then Range("P7").Value = "M"


End If
    Application.EnableEvents = True
End Sub