Replace در VBA

[boveiryghasem]

درود.
میخام توی برنامه با زدن یک دکمه توی تمام شیت ها 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 میخام با حلقه میشه یکی یکی شیت ها فعال کرد و این کارو کرد ولی دنبال یه راه بهترم کسی هست که بلد باشه.؟

[dataking]

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

[boveiryghasem]

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