Private Sub Worksheet_Calculate()
  Call MyReCalc
End Sub

Sub MyReCalc()
  Dim a As Range, b As Range

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Перерасчёт..."

  Set a = Range("ER45:ER78")
  Set b = Range("ES45:ES78")
  If Sheets("Лист2").Range("B3") = 1 Then
   For i = 1 To a.Count
    If Abs(a.Cells(i).Value) > 1 Then
     a.Cells(i).GoalSeek Goal:=0, ChangingCell:=b.Cells(i)
    End If
    if i mod 5 = 0 then Application.StatusBar = "Перерасчёт..." & Round(i / a.Count * 100, 1) & "%"
   Next
  End If

Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

End Sub

Option Explicit

Sub GetFor_()
     Dim lr As Long
     lr = 20000

     Dim r As Long, sStB As String
     Dim c As Integer
     For r = 2 To lr
         Application.StatusBar = sObrStr(r, lr) & sSuff(CInt(r / lr * 100))
         'ActiveWindow.ScrollRow = r - 1
         '        sStB = Application.StatusBar
         '
         '        For c = 1 To 100
         '            Application.StatusBar = sStB & sSuff(c)
         '            DoEvents
         '        Next c

         DoEvents
     Next r
     Application.StatusBar = False
End Sub

Function sObrStr(r As Long, lr As Long) As String
     sObrStr = "Обрабатывается строка:  " & sNumber(r) & "  из  " & sNumber(lr)
End Function

Function sSuff(c As Integer) As String
     sSuff = "   " & String$(c, ChrW(9607))
End Function

Function sNumber(lNum As Long) As String
     Dim sRes As String
      
     Dim sNum As String
     sNum = CStr(lNum)
      
     Dim i As Integer, iDig As Integer
     For i = 1 To Len(sNum)
         iDig = Mid(sNum, i, 1)
         sRes = sRes & sDigit(iDig)
     Next i
     sNumber = sRes
End Function

Function sDigit(iDig As Integer) As String
     If iDig = 0 Then
         sDigit = ChrW(9471)
     Else
         sDigit = ChrW(iDig + 10101)
     End If
End Function

Sub GetFor_()
     Dim R&, lR&: lR = 20000
     For R = 2 To lR
        Application.StatusBar = "Обрабатотка: " & R & " из " & lR & "   " & String(CInt(R / lR * 100), ChrW(&H25A1))
        DoEvents
     Next R
     Application.StatusBar = False
End Sub