Display userform for 5 seconds

[Vincent88]

What code can I add to display the userform for 5 seconds !

Private Sub UserForm_Initialize()

Dim ws As Worksheet
    Set ws = ActiveSheet
Dim szToday As String
    szToday = Format(Date, "d mmm yyyy")
    Label1.Caption = "Sheet " & szToday & " exists."
    
End Sub

 

[dmt32]

Hi,
try adding this code to your forms code page & see if does what you want

Private Sub UserForm_Activate()
    Application.Wait (Now + TimeValue("00:00:05"))
    Unload Me
End Sub

Dave