Center all userforms

[Av8tordude]

I have this code that will center my userform in the center of my screen ( i have 2 monitors). However, i would like to adapt this code to all my userforms, but I don't want to have this code in each userform. i would like to reference the code and call the code from each userform.

Public Sub Maximize()
With frmToolbar  
    .StartUpPosition = 0
    .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
    .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With
End Sub

 

[Norie]

Create a function/sub named, let's say CenterForm, that accepts a form as an argument.

Sub CentreForm(frm As Object)

    With frm
        .StartUpPosition = 0
        .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
        .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
    End With

End Sub

You can then simply call this for each form by putting this in the appropriate event

CentreForm Me

 

[Av8tordude]

Works like a charm. Thank you Norie for your help.