Getting 0 instead or blank cells

[LoveCandle]

Hi everybody,

I have the following code which is working well on a single cell ,,but
it is showing an error message with multiple selection.


Code:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 5 And Target.Row >= 5 And Target.Row <= 11 Then
If Target = "" Then Target = 0
End If
End Sub
--------------------


Can You please summerize the range area (D5:E11) if that is possible
and make the code working properly with more than one cell.

Thank you,

 

[LoveCandle]

After many tries >> I got the following code:


Code:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim MyRange As Range
Dim Cell As Range

Set MyRange = [D5:E11]
For Each Cell In MyRange
If Cell = "" Then Cell = 0
Next Cell

End Sub