Excel vba center userform

' On application window
Private Sub UserForm_Initialize() 
   Me.Top = Application.Top + (Application.UsableHeight / 2) - (Me.Height / 2) 
   Me.Left = Application.Left + (Application.UsableWidth / 2) - (Me.Width / 2) 
End Sub 
' Or
With myForm
    .StartUpPosition = 0	' Manual
    .StartUpPosition = 1	' CenterOwner	
    .StartUpPosition = 2	' CenterScreen
    .StartUpPosition = 3	' WindowsDefault, screen top left
End With

Source: bettersolutions.com

Similar codes

4 votes153 views1 answer
Excel vba check cell not empty
VBA
0 vote150 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote144 views1 answer
Vbnet display all axis labels in cahrt
VBA
5 votes179 views1 answer
Vba low byte from INTEGER
VBA
31 votes282 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
3 votes152 views1 answer
Vba folderexists
VBA
0 vote167 views1 answer
Pivot data source not accepting table named range vba
VBA
1 vote154 views2 answers
Get all column names from excel vba
VBA
0 vote170 views1 answer
Default host vbox address
VBA
0 vote169 views1 answer
Priavte sub with multiple handels find sneder
VBA