Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
I have created this code but it says error 438
Any ideas why??
Any ideas why??
VBA Code:
Sub BodyType()
Dim cmb As ComboBox
Dim wsDest As Worksheet
Dim i As Long, Range As Long
Set wsDest = ThisWorkbook.Worksheets("Job Card Master")
Set cmb = Body_And_Vehicle_Type_Form.Body_Type
For i = 0 To cmb.ListCount - 1
If cmb.Selected(i) Then
wsDest.Range("E4") = cmb.List(i, 0)
End If
Next i
End Sub