Excel VBA 进度/状态栏

Question

today i try to learn vba progress bar/status bar, i put below code in vba code and want to diplay status bar while calling two macros, but i's not working, there is no error, msgbox 'done' appeared, two macros supposed to run also not executed; anyone know what goes wrong with the code? Thank you.

Sub LOOP_GENERATEREPORT()
Dim I As Integer
Dim loopRng As RANGE
Dim r As RANGE

'----progress bar
Dim x As Integer
Dim MyTimer As Double
'------/progress bar

Application.ScreenUpdating = False

Sheet10.Activate
   y = Sheet10.RANGE("a24").Value
     For I = 1 To lastRow

'---------progress bar
Application.StatusBar = False
'----------/progress bar


For Each r In Sheet10.RANGE("a26", RANGE("a" & Rows.Count).End(xlUp))
    Sheet2.RANGE("ae8").Value = r.Value
Set loopRng = Worksheets("setting").RANGE("a24")

ActiveWindow.ScrollRow = loopRng
Application.CutCopyMode = False

Application.DisplayAlerts = True
Application.ScreenUpdating = False

' ---------progress bar
Application.StatusBar = "SMART Report printing in progress, please wait..." & I & " of " & y + 0 & " or " & Format((I - 1) / y, "0.00%") & "."

Call convertformula
Call CopySummaryRow44

Next r
Next I

'---------progress bar
Application.StatusBar = True
'----------/progress bar

Sheet2.Activate
MsgBox "DONE"
Sheet2.RANGE("ae8").Select

End Sub

Answer 1

The False in Application.StatusBar = False is wrong: you should provide strings, eg

Application.StatusBar = "False" ' to display "False"

or

Application.StatusBar = "" ' to cancel

etc.