Ajustar formulario de forma automática a cualquier tamaño de pantalla

Buen día

Tengo un código que me hace el proceso de ajustar un formulario de forma automática, pero he tenido problemas cuando quiero que me ajuste las múltiples paginas que tengo en el mismo, lo he trato de solucionar pero no he podido si alguien me puede colaborar le quedare agradecido.......el código es el siguiente.

Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
End Sub