以下のサンプルのようにすべてのシートに対して作業を繰り返すことができます。　これにより、手動でシートを追加されても、マクロは追加されたシートも含めて処理を行えます。

Sub ChangeCelColorMain()

Dim Sht As Worksheet

”表示更新をOFF
Application.ScreenUpdating = False

”全シートを対象として処理する
For Each Sht In Worksheets
Sht.Select
if SampleMethod(Sht.Name) = false then
Exit for
end if
Next Sht

”表示更新をON
Application.ScreenUpdating = True

End Sub

Private Function SampleMethod(SheetName As String) As Boolean

この中でシート名を指定して作業できます。

End Sub