Sub ShowMessage() Dim i As Long For i = 0 To 100 If i Mod 100 = 0 Then Application.StatusBar = "Processing Record " & i End If Next i Application.StatusBar = False End Sub