Dim rng as Range, cell as Range
On Error Resume Next
set rng = Columns(5).SpecialCells(xlBlanks)
On Error goto 0
if not rng is nothing then
for each cell in rng
mycheck(cell)
Next
end if


"Mikey" wrote in message
...

--
Mickey