Microsoft Excel Macro that displays progressing progress in application bar

Watch this example on YouTube



Sub Workbook_Open()
    For i = 1 To 100000
        Cells(i, 1) = "Some text"
        Application.StatusBar = "Processing " & Round((i / 100000 * 100), 0) & "%"
    Next

End Sub