Yes, if it works then keep it simple.
Another option might be (and simpler I think) is
to run a progressbar in the statusbar:

Sub StatusProgressBar(lCounter As Long, _
lMax As Long, _
lInterval As Long, _
Optional strText As String)

Dim lStripes As Long

If lCounter Mod lInterval = 0 Then
lStripes = Round((lCounter / lMax) * 100, 0)
Application.StatusBar = strText & _
String(lStripes, "|") & _
String(100 - lStripes, ".") & "|"
End If

End Sub


RBS


"Robert" wrote in message
ups.com...
Thanks for all of the great suggestions and example code. However, I
am not a VBA guru and therefor decided to stick with easy functions
like this:

I use labels with a height of 0,75 so they appear to be lines.

Private Sub labelcolorchange()

Application.Wait Now + TimeValue("0:00:05")

If Cells(1, "A").Value <= Cells(1, "B").Value Then
Label1.BorderColor = RGB(0, 0, 205)
Label1.ForeColor = RGB(0, 0, 205)
Label1.BackColor = RGB(0, 0, 205)

Else

Label1.BorderColor = RGB(0, 0, 10)
Label1.ForeColor = RGB(0, 0, 10)
Label1.BackColor = RGB(0, 0, 10)

End If
End Sub

Maybe I can use your advanced code in a later state.