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
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