Algo como isso?
-
RunMacroOnAllSheetsToRight
faz um loop em todas as planilhas da planilha ativa até a última planilha - Para essas folhas, a função
MyFunction
é chamada, obtendo o índice de folhas como argumento. O Msgbox é apenas um exemplo de ação. Mude para as suas necessidades.
Sub RunMacroOnAllSheetsToRight()
For i = ActiveSheet.Index To Sheets.Count
Call MyFunction(i)
Next i
End Sub
Function MyFunction(i)
'Code goes here
MsgBox "I'm currently on sheet " & ThisWorkbook.Sheets(i).Name
End Function