Hi all, i have a form that i am using as ainformation bar so to say to
inform the user that the document is being processed. I am using it as
below.... The problem i have is that the form shows fine but the label
does not change with the command, is it the code that is wrong, If i run
through the code with F8 it works but with F5 it does not ??


Sub UserForm_Open()

UserForm2.Show
End Sub

**** On form2 opening it calls format rows ******

'************ Format the header row *****************
Sub FormatRows()
'
Application.Cursor = xlWait
UserForm2.Label1 = "PLEASE BE PATIENT THIS DOCUMENT IS BEING
PROCESSED..."
' Application.ScreenUpdating = False
Rows("1:19").Delete Shift:=xlUp
With Rows("1:1")
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Columns("A:O").EntireColumn.AutoFit
Range("A1").Select
DeleteRowsIfNoUpg
End Sub

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***