Mantener Formulario por unos segundos

hola J.P.,

creo que podrias hacer algo parecido a esto (suponiendo que el form se llama
UserForm1):

1º.-en un modulo normal declaras una variable boolean publica ->

Public Ver5Segundos As Boolean

2º.-en el evento Open del libro ( modulo ThisWorkbook) pones->

Private Sub Workbook_Open()
Ver5Segundos = True
UserForm1.Show
.resto codigo Open si hay
End Sub

3º.-en el modulo del formulario al principio de Activate: pones ->

Private Sub UserForm_Activate()
If Ver5Segundos Then
Application.Wait Now + TimeValue("00:00:05")
Ver5Segundos = False: Unload Me
End If
si tienes mas codigo en activate
End Sub

posiblemente sea mejor usar OnTime, pero algo debo estar haciendo mal que no
me sale
si quieres echale un ojo a Wait y OnTime en la ayuda de vba

un saludo
Ivan