I see that you got the below code from TMS in this thread: http://www.excelforum.com/excel-prog...ple-cells.html


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B7:I18")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value <> 0 Then Target.Value = "ü"
Application.EnableEvents = True
End Sub
I don't know why you would have changed it to what you did in your first post in this thread. It seemed to work perfectly as TMS wrote it.
So again, if you add rows then just change the value of I18 as you need.