Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
This code below says Run-time error 13 on this row
Can some somebody say why?
VBA Code:
Set Tb = Body_And_Vehicle_Type_Form.TextBox6.
VBA Code:
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