DeBug Error

[joacro]

Hi there,

Hope someone can help me with this.

I got a userform with textboxes that has formulas in.

On the form I also have a clear form button,

I have the following code:

Private Sub Fitness_Change()
TextBox27.Value = Fitness.Value * 7500
End Sub

Private Sub UserForm_Initialize()
Fitness.Value = ""
TextBox27.Value = ""
End Sub

Private Sub cmdClear_Click()
Call UserForm_Initialize
End Sub

When I click the clear button I get a Run time error 13 Type mismatch in the following line

TextBox27.Value = Fitness.Value * 7500

Hope someone can help with this

Thx in advance

Joacro

 

[Norie]

Try this.

Val(Fitness.Value) * 7500

 

[joacro]

Perfect thanks a lot!!!