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

0 vote224 views1 answer
WGET FTP
VBA
0 vote235 views1 answer
Dynamically change drop down list visual basic
VBA
-1 vote240 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
-1 vote269 views1 answer
How to correct a number to 2 decimal places in vba
VBA
8 votes302 views1 answer
Excel vba make word
VBA
1 vote221 views1 answer
Vba delete array element
VBA
20 votes542 views1 answer
Excel vba factorial
VBA
0 vote229 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote287 views1 answer
Vba excel do not recalculate before save
VBA
0 vote223 views1 answer
How to use if condition in time vba
VBA