the above code is for the specified ranges which you can change..so any cell you delete within that range will default back to '0.00'![]()
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A18")) Is Nothing Then 'do nothing Else For Each cell In Range("A2:A18") If cell.Value = "" Then cell.Value = "0.00" End If Next End If End Sub
let me know if it works for you![]()
Bookmarks