Trying to subtract a 80mm from listbox value then fill it into a excel cell A10

[Darren Smith]

The error says Could not get list property.

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

 

[Norie]

How are you populating the listbox?

How many columns does it have?

 

[Darren Smith]

From a spreadsheet.
There is 10 columns i only need a figure from the 9th column