Repeating Macro through Cells and Worksheets

Hi all,

I am having some issues with repeating the macro using the 'next' function. What I want to do is change any cell that has a '0' in it to '1E-10'

I currently have this so far for one sheet but am having some difficulty exiting the loop and going to the next worksheet -

Sub Replace0()

Dim ActiveCell As Variant

For Each ActiveCell In Range("A1:AI1000")

If ActiveCell.Value = "0" Then

ActiveCell.Value = "0.0000000001"

End If

Next

End Sub

Any help would be much appreciated.