Small Macro Help

[UpTheArgyle]

Hi

I am trying to look at a block of cells to see if they are empty - if they are i want a value of "0" put in all the empty cells. So far i have this.....

Range("E8:K19").Select
If ActiveCell.Value = "" Then
ActiveCell.Value = "0"
End If

But all that does is place a "0" in cell E8

Any ideas?


Thanks

 

[Ruddles]

You're only ever changing ActiveCell and that's always E8.

Maybe something along these lines:-

dim oCell as range
 
for each oCell in Range("E8:K19")
    If isempty(oCell) Then oCell = "0"
next oCell

 

[UpTheArgyle]

awesome - thanks

 

[Ruddles]

Awesome because it looks good or awesome because it works?