ActiveX Textboxes

[flavioso]

I have an excel sheet that has a header row where users put values in an ActiveX textbox. My problem is percentages. I have tried to create a textbox where if the user puts 5 into it, the textbox would display 5%, instead it comes back with 500%. I cannot figure out what code to put in to eliminate this I have tried the change and exit event and it still puts 500% in the text box. Does anyone have any solution? This is an ActiveX field on a excel sheet, not on a userform.

I appreciate any help and suggestions.

 

[Juan Pablo González]

Can you show us the code that you've used?

Here's what I would use:

Private Sub TextBox1_LostFocus()
    If Len(TextBox1.Text) = 0 Then Exit Sub
    
    If InStr(1, TextBox1.Text, "%") = 0 Then
        TextBox1.Text = Format$(TextBox1.Text / 100, "0%")
    End If
End Sub

You can change the 0% to include more decimals.