Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
The error says Could not get list property.
VBA Code:
Private Sub Toolpod_Width_Change()
If ListBox1.ListIndex <> -1 Then
TextBox1 = ListBox1.List(ListBox1.ListIndex, 9)
End If
Dim ws As Worksheet
Dim BodyLength As ValueChange
Dim i As Long, Range As Long
Set ws = ThisWorkbook.Worksheets("Job Card Master")
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
ws.Range("A10") = Me.ListBox1.List(i, 9) - Me.Toolpod_Width.Value + 80
End If
Next i
End Sub