求助老师给我修改段代码 谢谢

要求是：在一个文件中，有10个表页的按钮都用相同的宏 ，现在我想设个总按钮（总按钮那页不需要此操作）点击总按钮后，按顺序1-10表页依次完成操作。我刚接触表格，一点都不懂，请老师帮我改好，谢谢）

Sub 末期查找()
Range("ah1").Select

Dim arr
m = [fg1].End(4).Row
arr = [fg1].Resize(m)
Range("AH1") = 367

For i = 1 To UBound(arr)
   Range("AB4") = arr(i, 1)
   n = Range("AH2")
   If n = 10 Then Exit Sub

Next

End Sub

（这是原来用来单独操作的宏）

（请老师帮忙修改一下，要求是点击总按钮后，按顺序1-10表页依次完成操作。谢谢）