Macro Extender a Pantalla Completa

Muy buen día:

Tengo una aplicación hecha pero me gustaría que al ejecutarse pueda expandirse a pantalla completa, tengo una rutina que pego a continuación pero solo la maximiza y el problema es en las mini laptops que no muestra toda la aplicación:

Sub UserForm_Initialize()
'-----Ajustar Tamaño Automático Userform
Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
End Sub

Espero puedan ayudarme. Saludos y excelente día