まったく同じ処理のコードはなかなかないと思います。
Webで「Excel 全てのシートを処理する」と調べたところ
よそ様のサイトですが下のようなものが見つかります。
一つのシートで今使っているコードを処理内容のところに入れるとうまくいくかもしれません。
ブック内のすべてのワークシートで同じ処理を行う 《For Each〜Next》
https://www.helpforest.com/excel/emv_sample/ex100001.htm
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
処理内容
Next Ws