
T.I.A.
Code: Select all
Private Sub UserForm_Initialize()
With Application
Me.Left = .Left + .Width - Me.Width
Me.Top = .Top + .Height - Me.Height
End With
End Sub
Thanks for the insight Kevin. That gave me the bottom right. I got the bottom left with:Becks wrote:First, set form's StartUpPosition to Manual (0)
thenKevinCode: Select all
Private Sub UserForm_Initialize() With Application Me.Left = .Left + .Width - Me.Width Me.Top = .Top + .Height - Me.Height End With End Sub
Code: Select all
Me.Left = .Left