- Codice: Seleziona tutto
PauseTime = 1 ' Imposta la durata espressa in secondi
Start = Timer ' Imposta l'ora di inizio.
Do While Timer < Start + PauseTime
DoEvents ' Passa il controllo ad altri processi.
'<
Loop
solo questo:
- Codice: Seleziona tutto
Sub MessTempo2()
ActiveSheet.Shapes("Text Box 1").Visible = True
'<<<< tua macro
ActiveSheet.Shapes("Text Box 1").Visible = False
End Sub
Ciao