Which one isn't working?
What is the error.

Which line is highlighted.

--
Regards,
Tom Ogilvy


"Tyrell" <Tyrell@discussions.microsoft.com> wrote in message
news:7B6CA744-BAC0-481F-B413-3B02A70318FA@microsoft.com...
> For some reason I still cannot get the combo boxes to populate using the
code
> below. Does anyone have any other recommendations on how I could get this
to
> work? Thank you to the gentleman who helped me earlier with this but it's
> still not working. Any help would be greatly appreciated !
>
>
> Private Sub Populate_cboSOperations()
>
> 'Populate Combo Box cboSOperations
>
> Dim FSO As Object
> Dim sFolder As String
> Dim Folder As Object
> Dim file As Object
> Dim Files As Object
> 'Dim This As Object
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
> Set This = ActiveWorkbook
> Folder = "C:\Ag Valley\Tracker"
>
> If Folder <> "" Then
> Set sFolder = FSO.GetFolder(Folder)
> Set Files = sFolder.SubFolders
> cboSOperation.Clear
> For Each file In Files
> If file.Type = "File Folder" Then
> cboSOperation.AddItem file.Name
> End If
> Next file
> End If
>
> Set FSO = Nothing
> End Sub
>
> Private Sub cboSOperation_Change()
>
> 'Populate Combo Box cboSGrower
>
> Dim FSO1 As Object
> Dim s1Folder As String
> Dim Folder As Object
> Dim file As Object
> Dim Files As Object
> 'Dim This As Object
>
> Set FSO1 = CreateObject("Scripting.FileSystemObject")
> Set This = ActiveWorkbook
> Folder = "C:\Ag Valley\Tracker" & Trim(cboSOperation.Value) & "\"
>
> If cboSOperation.Value <> "" Then
> Set s1Folder = FSO1.GetFolder(Folder)
> Set Files = s1Folder.SubFolders
> cboSGrower.Clear
> For Each file In Files
> If file.Type = "File Folder" Then
> cboSGrower.AddItem file.Name
> End If
> Next file
> End If
>
> Set FSO1 = Nothing
> End Sub
>
> Private Sub cboSGrower_Change()
>
> 'Populate Combo Box cboSYear
>
> Dim FSO2 As Object
> Dim s2Folder As String
> Dim Folder As Object
> Dim file As Object
> Dim Files As Object
> 'Dim This As Object
>
> Set FSO2 = CreateObject("Scripting.FileSystemObject")
> Set This = ActiveWorkbook
> Folder = "C:\Ag Valley\Tracker" & Trim(cboSOperation.Value) & "\" &
> Trim(cboSGrower.Value) & "\"
>
> If cboSGrower.Value <> "" Then
> Set s2Folder = FSO2.GetFolder(Folder)
> Set Files = s2Folder.SubFolders
> cboSYear.Clear
> For Each file In Files
> If file.Type = "File Folder" Then
> cboSYear.AddItem file.Name
> End If
> Next file
> End If
>
> Set FSO2 = Nothing
> End Sub
>
> Private Sub cboSYear_Change()
>
> 'Populate Combo Box cboSFile
>
> Dim FSO3 As Object
> Dim s3Folder As String
> Dim Folder As Object
> Dim file As Object
> Dim Files As Object
> 'Dim This As Object
>
> Set FSO3 = CreateObject("Scripting.FileSystemObject")
> Set This = ActiveWorkbook
> Folder = "C:\Ag Valley\Tracker" & Trim(cboSOperation.Value) & "\" &
> Trim(cboSGrower.Value) & "\" & Trim(cboSYear.Value) & "\"
>
> If cboSYear.Value <> "" Then
> Set s3Folder = FSO3.GetFolder(Folder)
> Set Files = s3Folder.SubFolders
> cboSFile.Clear
> For Each file In Files
> If file.Type = "Microsoft Excel Worksheet" Then
> cboSFile.AddItem file.Name
> End If
> Next file
> End If
>
> Set FSO3 = Nothing
> End Sub
> --
> Tyrell Fickenscher
> Plant Manager / Agronomist