Sub ToggleStatusBar()
With Application
  .DisplayStatusBar = Not .DisplayStatusBar
  End With
End Sub

Sub ss1()
    For i = 1 To 1000000
        If i Mod 1000 = 0 Then 'Если остаток от деления на 1000 равен нулю
            Application.StatusBar = "i = " & i
        End If
    Next i
End Sub

Sub ss0()
    Application.StatusBar = False
End Sub