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