The line 2 throws the error

Private Sub Form_Load()
schedway = ways
For x = 0 To UBound(schedway)
schedway(x).status = x
Next x
target = sortRoute()
haltVar = 1
dayList.ListIndex = 0
target = fillrList()
workList.ListIndex = 0
haltVar = 0
End Sub