Bucle "mientras no..."

Cuando el calendario está incrustado en una celda, el código no se detiene
al mostrar el calendario.

Prueba poniendo el calendario en un formulario del editor de VBA y un código
similar a:

En un módulo ordinario:
Sub muestraForm()
UserForm1.Show
End Sub

En el módulo del formulario:
Private Sub Calendar1_Click()
[A1] = DateSerial(Calendar1.Year, Calendar1.Month, Calendar1.Day)
UserForm1.Hide
End Sub

Saludos desde Tenerife (España).
***********************************************

"Paketemetes" escribió en el mensaje
news:
Hola a Todos:

Dentro de una macro debe el usuario seleccionar una fecha de un
control calendario. No debe seguir hasta que se ha hecho click
seleccionando una fecha. He probado con "While...wend" pero observo en
el editor de VBA que figura que sigue ejecutándose hasta que
manualmente le doy al stop. ¿Por qué es así y como puedo solucionarlo?
Gracias

modif = 0
Sheets("Datos").Calendar1.Visible = True
While modif = 0
DoEvents
Wend
Cells(2, 23) = fechac