If cell blank = $0.00?

[EdaddyJ]

Can you tell me whats wrong here? I know it has something to do with the range. Or give me a better solution?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Sheets(1).Range("=D23:E304")
For Each cell In rng
If cell.Value = 0 Or cell.Value = Null Or cell.Value = " " Then
cell.Value = "$0.00"
End If
End Sub

 

[EdaddyJ]

Every 10 lines there is text so that won't work and every 10 lines there is a new absolute reference. So I can just write it 30 times. It will have to do.

Thanks for your help