Cell calculation not responding?

Hi,

I have a simple calculation which has worked in the past but seems to have stopped working. I was advised to paste

Application.Enableevents = True

in the intermediate window which kick started the program but
I require greater reliability. I've checked the target cells and everything looks fine. Can anyone see whats up?

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    If Range("N13").Value = "A" Then
        Range("N15").Value = 23
        
        End If

   If Range("N13").Value = "C" Then
        Range("N15").Value = 39
       
         End If
    If Range("N13").Value = "E" Then
        Range("N15").Value = 39
        
        End If

   If Range("N13").Value = "G" Then
        Range("N15").Value = 68.5
          End If
        
    If Range("N13").Value = "H" Then
        Range("N15").Value = 68.5
        
        End If
        
    If Range("N13").Value = "J" Then
        Range("N15").Value = "67"
        
        End If

   If Range("N13").Value = "N" Then
        Range("N15").Value = 47
        
          End If
          
    If Range("N13").Value = "P" Then
        Range("N15").Value = 10
        
        End If

   If Range("N13").Value = "R" Then
        Range("N15").Value = 56
        
        End If
        
         If Range("N13").Value = "T" Then
        Range("N15").Value = 43.5
          End If
        
   If Range("N13").Value = "V" Then
        Range("N15").Value = 73
        
          End If
          
    If Range("N13").Value = "X" Then
        Range("N15").Value = 8.5
        
        End If

   If Range("N13").Value = "Y" Then
        Range("N15").Value = 10.5
        
         End If
         

'IVE ADDED A MM TO CONFORM TO CST

   If Range("N25").Value = "STUBJ014" Then
        Range("N26").Value = 211
        
                 End If
      'IVE ADDED A MM TO CONFORM TO CST
                 
        If Range("N25").Value = "STUBJ015" Then
        Range("N26").Value = 196
        
                 End If

  
End Sub

You've set Application.EnableEvents = False at the top of the module. It will stay that way until you set it to true (or restart Excel). Using the Immediate Window is perfectly fine for debugging, but you've got to fix the code too, by putting Application.EnableEvents = True at the end of the module.

Thanks Lads, sorry for delay, up to my neck this morning. I'll examine code now, Thanks

All sorted. Thanks you for your help :-)