Replace در VBA

درود.
میخام توی برنامه با زدن یک دکمه توی تمام شیت ها Replac کنم مثلا No رو به Mo توی تمام شیت ها ولی با این کد که خودم دارم فقط توی شیت فعال این کارو میکنه کدی هست که واسه تمام شیت ها این کارو کنه.

Private Sub CommandButton1_Click()

           Sheets(i).Select

        Cells.Replace What:="No", Replacement:="Mo", LookAt:=xlPart, SearchOrder _

         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True  

End Sub

راستی واسه VBA میخام با حلقه میشه یکی یکی شیت ها فعال کرد و این کارو کرد ولی دنبال یه راه بهترم کسی هست که بلد باشه.؟

سلام
ماهیت کار تکراه چون تعداد دقیق دفعات معلوم نیست از تکرار استفاده کن
با while , wend می شه این کار را کرد

عزیز من که گفتم خودم بلدم از حلقه استفاده کنم چیزی غیر از حلقه.