I am trying to send a progress message from a custom VBA function - I get no errors, just never see the messages on the status bar. I have stepped through the function and confirmed the display command is executing. I can run a SUB from this same workbook/module and see the status bar updated.
Any ideas on what I can try to fix this are appreciated. Section of code below
(NOTE: I added the "DEBUG" status bar message to drive the message for each instance of the function being performed... also, Application.Displaystatusbar = False is not clearing the statusbar. It is almost as if all status bar functions are being ignored)
Thanks
Application.DisplayStatusBar = False
Application.DisplayStatusBar = True
Dim lngRow As Long
Dim intMod As Integer
lngRow = Application.Caller.Row
Application.StatusBar = "DEBUG:" & lngRow
intMod = lngRow Mod 500
Application.StatusBar = "Progress: " & lngRow & "/" & intMod
If intMod = 0 Then
Application.StatusBar = lngRow
End If
Any ideas on what I can try to fix this are appreciated. Section of code below
(NOTE: I added the "DEBUG" status bar message to drive the message for each instance of the function being performed... also, Application.Displaystatusbar = False is not clearing the statusbar. It is almost as if all status bar functions are being ignored)
Thanks
Application.DisplayStatusBar = False
Application.DisplayStatusBar = True
Dim lngRow As Long
Dim intMod As Integer
lngRow = Application.Caller.Row
Application.StatusBar = "DEBUG:" & lngRow
intMod = lngRow Mod 500
Application.StatusBar = "Progress: " & lngRow & "/" & intMod
If intMod = 0 Then
Application.StatusBar = lngRow
End If