Hi

Set up you userform with a lable which in my exaple is named Label1. In the
properties for the label enter the desired message in "Caption", set
ForeColor to red and Visible =False.

Private Sub CommandButton1_Click()
Me.Label1.Visible = True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2' Change number to change visible time
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Me.Hide
Unload Me
End Sub

Regards,
Per

"David Gerstman" skrev i meddelelsen
...
I have a userform to input some data. After the user presses the "enter"
button, the data is recorded.

I've been asked to have an indicator that flashes for a moment to indicate
that information is being saved.

I was thinking of having text in a label that would say "SAVING..." in red
letters for a second or two. How would I accomplish that?

Thank you,

David