visualizar fecha actual en cuadro de dialogo en excel

[3pies]

Prueba esto, que se ejecutará cada vez que se inicialice el formulario:

Código:

Private Sub UserForm_Initialize()
'mostramos la fecha en la etiqueta llamada Label1
Label1 = "Hoy es: " & Date
End Sub