Private Sub UserForm_Initialize()
Dim I As Integer
With Me.ComboBox1
.Font.Size = 16
For I = 1 To 36
.AddItem I
Next I
End With
' Me.StartUpPosition = Manual
' With ActiveCell
' Me.Left = .Left + (2 * .Width)
' Me.Top = .Top + (4 * .Height)
' End With
End Sub