Type Mismatch

[johnsonk]

Hi,
Can anyone help with the code below I keep getting a type mismatch error on the line highlighted in red and I don't know why.

Private Sub textbox17_Change()
Dim m As Variant
With ThisWorkbook.Worksheets("Data")
m = WorksheetFunction.Match(TextBox1.Text, .Columns(1), 0)
If ComboBox1.Value = "OUT" Then
With .Cells(CLng(m), "C")
.Value = .Value + ComboBox5.Value
End With
ElseIf ComboBox1.Value = "IN" Then
With .Cells(CLng(m), "C")
.Value = .Value - ComboBox5.Value
  If ComboBox1.Value = "OUT" Then
With .Cells(CLng(m), "D")
.Value = .Value + ComboBox7.Value
End With
ElseIf ComboBox1.Value = "IN" Then
With .Cells(CLng(m), "D")
 .Value = .Value - ComboBox7.Value
End With
End If
End With
End If
End With
End Sub

 

[RoryA]

Most likely whatever is in Combobox7 can't be coerced to a number by VBA.

 

[johnsonk]

ComboBox7 just has numbers that they select.

 

[RoryA]

Before the line that causes the error, add:

msgbox "Cell value: " & .value
msgbox combobox7.value

and tell us what messages you see.

 

[johnsonk]

Hi, Below is the message I get, when I click ok on the first message I then get another

 

[RoryA]

That's the problem then. Neither of those are numbers, so you can't subtract one from the other.

 

[johnsonk]

I see now what you mean, I know what I need to do now thank you.