Run Time error 13

[Darren Smith]

This code below says Run-time error 13 on this row

Set Tb = Body_And_Vehicle_Type_Form.TextBox6.

Can some somebody say why?

Sub Wing_Stay_Length()

Dim Tb As TextBox
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Job Card Master")
Set Tb = Body_And_Vehicle_Type_Form.TextBox6

Select Case Tb.Value

Case ("Transit")
ws.Range("G24").Value = "550mm"

Case ("Sprinter")
ws.Range("G24").Value = "550mm"

Case ("Master")
ws.Range("G24").Value = "465mm"

Case ("Movano")
ws.Range("G24").Value = "465mm"

Case ("NV400")
ws.Range("G24").Value = "465mm"

Case ("Boxer")
ws.Range("G24").Value = "465mm"

Case ("Ducato")
ws.Range("G24").Value = "465mm"

Case ("Relay")
ws.Range("G24").Value = "465mm"

End Select

End Sub

 

[mohadin]

set Rng1=Rng.Offset(1, 4)

Select Case Me.TextBox6.Value

Case ("Transit")
Rng1 = "550mm"

Case ("Sprinter")
Rng1 = "550mm"

Case ("Master")
Rng1= "465mm"

Case ("Movano")
Rng1= "465mm"

Case ("NV400")
Rng1 = "465mm"

Case ("Boxer")
Rng1 = "465mm"

Case ("Ducato")
Rng1 = "465mm"

Case ("Relay")
Rng1 = "465mm"

End Select
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
End If
Next I
End With

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

 

[Darren Smith]

Sorry to waste your time.
I just added another range variable and it worked fine.
Thankyou very much for your help