Private Sub ComboBox1_Change()
On Error Resume Next
Application.EnableEvents = False
ComboBox1.Text = Format(CDbl(ComboBox1.Text) * 100, "0"" %""")
Application.EnableEvents = True
On Error GoTo 0
End Sub
A+Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = FormatPercent(TextBox1 / 100)
End Sub
Private Sub ComboBox1_Change()
Me.ComboBox1.Value = FormatPercent(Me.ComboBox1, 0)
End Sub