Private Sub UserForm_Initialize()
Dim fs As Object
Dim MonRep As Object
Dim ColRep As Object
Dim nRep, folderItem, XmlFolder
Set fs = CreateObject("Scripting.FileSystemObject")
Me.Cbx_EquiType = Range("B2").Value
'Folder test
x = Split(ActiveWorkbook.Path, "\")
nRep = x(UBound(x))
If (nRep = "Excel") Then
Set MonRep = fs.GetFolder("..\Xml\")
Set ColRep = MonRep.SubFolders
For Each folderItem In ColRep
y = Split(folderItem, "\")
EquiTypeFolder = y(UBound(y))
If (EquiTypeFolder <> "lib") Then Me.Cbx_EquiType.AddItem EquiTypeFolder
Next
'Initilalize
Set ColRep = Nothing
Set MonRep = Nothing
Set fs = Nothing
End If
End Sub