Trying to open a file using a listbox selection. My code says quote "Compile error: User-defined type not defined" on the first line?

[Darren Smith]

Private Sub ListBox3_Click()

Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.folder

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("\\TGS-SRV01\Share\ShopFloor\PRODUCTION\DLS Carworker")

Dim I As Long
For I = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(I) Then
Workbook.Open objFolder & ListBox3.List(I)

End If
Next I

End Sub

 

[Darren Smith]

You haven't asked for anything else. I have answered you question and provided a solution for you.

Sorry I should have said at the start the listbox is to do Various task as well as opening spreadsheets?

 

[Trevor G]

Please start a new thread and list your objectives/questions as this one was specifically to open a workbook so you would get a better response.

 

[Darren Smith]

Sorry, should have said that I need a list box to do multiple functions not just opening spreadsheets?