Public Sub ShowStatus() Application.ScreenUpdating = False Dim I As Long For I = 0 To 10000000 If I Mod 1000000 = 0 Then Application.StatusBar = "Processing Record " & I End If Next I Application.StatusBar = False Application.ScreenUpdating = True End Sub