Código para activar el formulario del cuestionario

H o l a:

En un módulo pon la siguiente macro:

Sub abrir()
UserForm1.Show
End Sub

El formulario el primer evento es este:

Private Sub UserForm_Activate()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    h2.Cells.Clear
End Sub

S a l u d o s .