Status Bar Progress Meter not showing messages
I'm trying to put together a 'Status Bar Progress Meter' to help the user when loading a lengthy macro. I've carried out some research and found this to be the type that I'd like to use. The problem I have is that the progress bar doesn't move across the Status Bar and the first and last messages i.e. "Working" and "All Files Extracted" are not shown. Where have I gone wrong? Private Sub btnFetchFiles_Click() Dim j As Integer iRow = 20 fPath = "\\c\s\CAF1\Dragon Mentor Group\Dragon Scripts\Current\April 2015" If fPath <> "" Then ' make StatusBar visible Application.DisplayStatusBar = True Set