Unable to delete code in worksheet cell

[ipbr21054]

Morning.
I have a code in column E cells & down the page but i am unable to delete / change it
Pressing delete etc doesnt do anything.
If i select the cell & put the new code in the address bar above also makes no difference.

Can you advise how this cell is locked please.

 

[ipbr21054]

Forgot to mention I selected the cells and selected format then protection tab and removed the tick.
Saved workbook and closed.
opened file and still the code is there and unable to be deleted.

 

[Anthony47]

To better understand what you mean I suggest you share a sample workbook that have the problem
Bye

 

[ipbr21054]

Here is the file

ACCOUNTS TEST.xlsm

drive.google.com

I wish to delete the current code for sheet tab INCOME 2 cells E5:E28

I then wish to place the code below in its place.

=IF(C5="","",IF(ISERROR(C5+D5),"",C5+D5))

 

[sandy666]

maybe replace formula here

'Private Sub Worksheet_Change(ByVal Target As Range)
'  If Not Intersect(Target, Range("E4:E30")) Is Nothing Then
'    Application.EnableEvents = False
'    Range("E4:E30").Formula = "=IF(C4="""","""",C4+D4)"
'    Application.EnableEvents = True
'  End If
'
''   Exit if more than one cell updated at a time
'    If Target.Count > 1 Then Exit Sub
'
''   Check to see if value updated is in column B or D
'    If Target.Column = 2 Or Target.Column = 3 Then
'        Application.EnableEvents = False
'        If UCase(Cells(Target.Row, "B")) = "REFUND" Then
'            Cells(Target.Row, "C") = Abs(Cells(Target.Row, "C")) * -1
'        Else
'            If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "C").ClearContents
'        End If
'        Application.EnableEvents = True
'    End If
'    If Not (Application.Intersect(Target, Range("A3:G28")) _
'      Is Nothing) Then
'        With Target
'            If Not .HasFormula Then
'                Application.EnableEvents = False
'                .Value = UCase(.Value)
'                Application.EnableEvents = True
'            End If
'        End With
'    End If
'
'End Sub

 

[mohadin]

Hi
Replace with this part

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("E5:E28")) Is Nothing Then
    Application.EnableEvents = False
    Range("E5:E28").Formula = "=IF(C5="""","""",IF(ISERROR(C5+D5),"""",C5+D5))"
    Application.EnableEvents = True
  End If

 

[ipbr21054]

Thanks,
I have used the code supplied by @mohadin & now happy.

 

[sandy666]

the code I posted is yours so nothing new

 

[ipbr21054]

I know that so i used the one in Post #6

 

[mohadin]

Glad I could help
And thank you