Range variable not working in match command

[jamielill]

I cannot get my code to recognize the variable punchrange
There is a sheet called HPpunch
There is data in B5:V16 (dollar values)
I keep getting the error type mis match
I have tried changing quite a few then but to no avail.
The text box only displays the value there is no input by the user. I just needed somewere to display the final value

Can sombody helpm with this

Thanks

Jamie Lill

Private Sub TextBox160_Change()
Dim PunchRange As Range
Dim Cnumber As Integer
Set PunchRange = Sheets("HPpunch").Range("B5:V16")
If ListBox11.Text = "HP" Then
Cnumber = "=Match(ListBox16.Value, PunchRange)"
TextBox160.Text = "=VLookup(ListBox13, PunchRange, Cnumber,)"
End If
End Sub