Filling in Blank cells in CurrentRegion

Hello, I'm having a few problems with filling in Blanks with a 0. I have the following code so far. Any help appreciated.

Sub Fill_Blanks()

Dim cell As Range

For Each cell In Range("B4").CurrentRegion

If cell.SpecialCells(xlCellTypeBlanks) Then

cell.Value = 0
End If

Next cell

End Sub

Hi, Hurricanefly,

if the cells are really blanks:

Sub Fill_Blanks()

On Error Resume Next
Range("B4").CurrentRegion.SpecialCells(xlCellTypeBlanks).Value = 0

End Sub

Ciao,
Holger