Nedtælning

her er et forslag:

Opret en userform og sæt egenskaben ShowModal til False. Indsæt nedenstående kode i et modul:

Sub Start()

UserForm1.Show
Application.OnTime Now + TimeValue("00:00:10"), "UserformFjern"

End Sub

Sub UserformFjern()
    UserForm1.Hide
    MsgBox "Kører efter 10 sekunder!"
End Sub

Den tæller selvfølgelig ikke ned, men den venter i 10 sekunder. Du kunne så skrive "Vent venligst" i userformen

Her er et eksempel på en nedtælling:

Forudsætninger: Din userform skal stadig har egenskaben ShowModal = False; og en label kaldet "Label1"

Kode:

Public n As Integer
Sub Start()
n = 1
UserForm1.Show
UserForm1.Label1 = 30
Application.OnTime Now + TimeValue("00:00:01"), "Nedtælling"

End Sub

Sub Nedtælling()
    UserForm1.Label1 = 30 - n
   
    If n <= 30 Then
        Application.OnTime Now + TimeValue("00:00:01"), "Nedtælling"
        n = n + 1
    End If
   
    If n > 30 Then
        UserForm1.Hide
    End If
   
End Sub

det sidste virker tilfredsstillende