通过调用sub将代码运行到多个工作表

I am applying a code to more than one worksheet. However, the catch is that I am calling a sub in loop( Call sort) which contains code and at the end calls other sub and so on. I want all the subs to be called for one sheet and then go to next sheet and do the same task. I have three sheets named "5", "6" and "7"(can be more than that also). Here is the code I am applying:I am applying a code to more than one worksheet