Hi

I have a textbox on a Userform and using the code below
when I enter for example 100 and then in the Listbox select another row the
textbox updates to 101 with no problem - however if I enter L100 the code
errors
is there a way round this error as sometimes I have to use a letter as it
denotes the department that is issuing the Invoice.

Private Sub Lb1_Change()
Application.ScreenUpdating = False
Dim invnum As String
Dim iRow As Long
Dim ws As Worksheet
Sheets("Invoice").Select
Tb36A.Text = Range("C14").Text + 1'<<<< errors on this line
Application.ScreenUpdating = True
End Sub

--
Many Thanks

Sue