1

I'm trying to set up a progress bar so I can see if my sub is running of if i've managed to freeze excel. I'm looking at one of the answers here, but it's not working.

Here's what I have:

Dim n As Integer
With Worksheets("Data_History")
    Set starting_cell_range = .Range(find_last_column("Data_History"))
    For n = 0 To 18
        starting_cell_range.Offset(n, 1) = final_array(n)
        Application.StatusBar = "Progress: " & n & " of 18" & Format(n / 18, "0%")

    Next n
    Application.StatusBar = False

End With

Is it not working because I'm on a mac?

Community
  • 1
  • 1
DBWeinstein
  • 8,605
  • 31
  • 73
  • 118

1 Answers1

1

I assume that you have an Application.DisplayStatusBar and it is visible? Try adding DoEvents here:

....
DoEvents
Application.StatusBar = "Progress: " & n & " of 18" & Format(n / 18, "0%")
....
Gremash
  • 8,158
  • 6
  • 30
  • 44