Hacer que macro ejecute todas las veces que se llame a una función dentro de todas las pestañas

Buenos días expertos, quiero crear un botón el cual ejecute todas las veces que se llame a la función f_EquipoResponde() dentro de todos los worksheets que están en el excel. Mi macro es la siguiente

Sub Auto_open()
x = MsgBox("Bienvenido Usuario al Controlador de IP De Banco Internacional", vbInformation, "Bienvenido")
End Sub

Sub calcular_todo()
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
End Sub

Sub esta()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
End Sub

Public Function f_EquipoResponde(str_Equipo As String) As String
Application.ScreenUpdating = False
Dim obj_Shell As Object
Dim obj_FileSystem As Object
Dim obj_Fichero As Object
Dim str_ContenidoFichero As String
Dim str_FicheroTemporal As String
Dim str_NombreMaquina As String
Set obj_Shell = CreateObject("WScript.Shell")
Set obj_FileSystem = CreateObject("Scripting.FileSystemObject")
str_FicheroTemporal = ThisWorkbook.Path & "\temp.txt"
obj_Shell.Run "cmd /c ping -a -n 2 -w 150 " & str_Equipo & " > """ & _
str_FicheroTemporal & """", 0, True
Set obj_Fichero = obj_FileSystem.OpenTextFile(str_FicheroTemporal, 1, False)
str_ContenidoFichero = obj_Fichero.ReadAll
obj_Fichero.Close
Set obj_Fichero = Nothing
obj_FileSystem.DeleteFile (str_FicheroTemporal)
Set obj_FileSystem = Nothing
Set obj_Shell = Nothing
Dim nombre As String
nombre = Mid(Replace(str_ContenidoFichero, vbCrLf, ""), 17, 10)
If InStr(str_ContenidoFichero, "perdidos = 0") > 0 Then
f_EquipoResponde = nombre & " ha RECIBIDOS 100%"
End If
If InStr(str_ContenidoFichero, "perdidos = 1") > 0 Then
f_EquipoResponde = nombre & "ha RECIBIDOS 50%"
End If
If InStr(str_ContenidoFichero, "perdidos = 2") > 0 Then
f_EquipoResponde = "IP VACANTE"
End If
End Function

la macro calcular_todo quiero que pueda hacer lo antes explicado , alguna idea o algún código similar que pueda ajustar para hacer lo que quiero ?

De antemano Muchas Gracias

Saludos ,

Nicolás Hernandez