This way works great as well.


Apologies for the repeated thread, I wasn't getting the prompt box to say my
message had been posted.

Thanks again,

Pinda.

"Ron de Bruin" wrote:

Try this

On Error Resume Next
Range("A1:D5").SpecialCells(xlCellTypeBlanks).Valu e = 0
On Error GoTo 0


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Bhupinder Rayat" wrote in message
...