Почему «Определяемый пользователем тип не определен» Ошибка при запуске рекурсивной функции

Question

Это код, который я использую, чтобы проверить, доступна ли определенная папка проекта в моем каталоге.

Option Explicit
Public xCell As Range

Sub TestR()
Dim xTxt As String
Dim Rg As Range


xTxt = ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select project to check status!!!      ", "Lmtools", xTxt, , , , , 8)
If Rg Is Nothing Then
    MsgBox ("Nothing selected!!!")
    Exit Sub
End If
For Each xCell In Rg
   If xCell.Value <> "" Then
      Call Recurse("D:\")
   End If
Next

End Sub

Function Recurse(sPath As String) As String

Dim FSO As New FileSystemObject
Dim myFolder As Object
Dim mySubFolder As Object
Dim xStatus As String

Set myFolder = FSO.GetFolder(sPath)

For Each mySubFolder In myFolder.subfolders
    xStatus = mySubFolder.path
    If xStatus Like "*?\" & xCell.Value Then
        Cells(xCell.Row, xCell.Column + 1).Value = "Completed"
        Cells(xCell.Row, xCell.Column + 2).Value = xStatus
        GoTo nextiteration
    ElseIf xStatus Like "*?\" & xCell.Value & "\?*" Then
        Call reiterateFolder
    Else
        Cells(xCell.Row, xCell.Column + 1).Value = "Ongoing"
    End If
    Recurse = Recurse(mySubFolder.path)
Next

End Function

Теперь, когда я запускаю код, выдается сообщение о том, что пользовательский тип не определен.

Где я допустил ошибку ??