Maximizar un UserForm

Un ejemplo siempre útil que nos permite maximizar un UserForm al tamaño de la pantalla del usuario.

Para esto tenemos dos opciones:

1.- Maximiza el UserForm a la zona que abarcan las celdas de Excel.

With UserForm1
     .Width = Application.UsableWidth
     .Height = Application.UsableHeight
End With
Application.WindowState = xlMaximized

2.- Maximiza el UserForm a la resolución de la pantalla.

With UserForm1
    .Width = Application.Width
    .Height = Application.Height
End With