Yes. For example, after:
Application.ScreenUpdating = False
insert:
Code:
Dim SBar As Boolean
' Store current Status Bar status, then switch on
SBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Before:
On Error Resume Next
insert:
Code:
StatusBar = "Processing Record: " & i
And before:
Application.ScreenUpdating = True
insert:
Code:
' Clear the Status Bar
Application.StatusBar = False
' Restore original Status Bar status
Application.DisplayStatusBar = SBar