Macro no reconoce comandos de no actualizar pantalla y de calculo manual

Buenas tardes expertos , tengo un problema el cual detallare con minuciosamente a continuación. El problema es que cree una macro y el proceso se demora aprox 45 horas , el problema es que yo sabia que con los comandos para que la pantalla no se actualice y el calculo manual se supone que iría mas rapido y dejaría de hacer el calculo por hojas cada vez que lo iniciara. No entiendo porque sigue como que no lo hubiese guardado , ojalas me pueda ayudar, de antemano muchas gracias. El código de mi macro es el siguiente.

Attribute VB_Name = "Módulo1"
Private Sub WorkBook_Open()
Application.OnTime Now() + TimeValue("00:00:05"), "esta"
End Sub

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

Public Function f_EquipoResponde(str_Equipo As String) As String
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