Fill blank cells with 0 to multiple worksheets at once

How to Fill blank cells with 0 to multiple worksheets at once?
Plz help.

FillBlankCells macro

here you have the code to do it the two first worksheet, if your workbook has more then two worksheet, just copy and paste the code replacing the sheet name for "sheet3", "sheet4" and so on.

Sub FillBlankCells()

'do it for the first worksheet

Worksheets("Sheet1").Activate
Sheets("Sheet1").Cells.SpecialCells(xlCellTypeBlanks).Select
Selection = 0

'do it for the second worksheet

Worksheets("Sheet2").Activate
Sheets("Sheet2").Cells.SpecialCells(xlCellTypeBlanks).Select
Selection = 0

End Sub

I hope it helps,
Cátia Santos