MsgBox "Updating will take place.." to delay for 10 seconds

alienscript · #1 (**permalink**) 10-14-04, 11:59

Hi fellows,

I have the following Workbook_Open event.
If I want the MsgBox "Updating will take place..." to delay for 10 seconds so that a user will be able to decide either click OK or Cancel, how should the code be like ?
Any help is much appreciated. Thanks

Private Sub Workbook_Open()
If ActiveWorkbook.Name = "8800 TSL Change Record( dates sorted).xls" Then
MsgBox "Updating will take place"

Call SortPlt8800TSLchangeRecord
Else
cancel = True
End If
End Sub

shades · #2 (**permalink**) 10-14-04, 12:09

Perhaps something like this?

Code:

Sub DelayTest()
Dim i As Integer

For i = 1 To 5

    Sleep 5000 'delay in milliseconds

    MsgBox "Time delayed message loop " & i

Next
End Sub

Change as appropriate.

shades · #3 (**permalink**) 10-14-04, 12:10

Or try this page:

excelfiles

Internet Services

Web Development

Digital Marketing

Consumer Tech