[Help - Macro para abrir arquivos .XLS de pastas e sub-pastas]

Olá amigos,

Estou com problemas para inserir a leitura e abertura de arquivos .XLS em pastas e subpastas. O código abaixo está funcionando apenas para abertura de arquivos .XLS em pastas, porém não funciona em subpastas.

Por favor, se alguém souber o como, ficarei imensamente grato.

Sub open_and_copy()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Dim FSO As Object
Dim pasta_arquivos As String
Dim Planilha As Object
Dim OpenBook As String

Set FSO = CreateObject("Scripting.FileSystemObject")
pasta_arquivos = ThisWorkbook.Sheets("COMPILADOR").Range("H4") 'LOCAL CONTENDO A NOMENCLATURA DO RELATÓRIO'

For Each Planilha In FSO.GetFolder(pasta_arquivos).Files
If InStr(1, Planilha, ".xls") = 0 Then GoTo PROXIMO

Workbooks.Open (Planilha)
    OpenBook = ActiveWorkbook.Name

PROXIMO:
Next