Excell VBA
Preciso listar os arquivos de uma pasta com as seguintes instruções do cabeçalho.
Mas não pode abrir os arquivos. Veja somente os metadados
Somente arquivos tipo pdf
Preencha esses dados do cabeçalho para cada páginas dos arquivos
    'Cabeçalhos
    numeroLinhas = 1
    Cells(numeroLinhas, 1).Value = "Nome da Pasta" ‘.Value = pastaObj.Name
    Cells(numeroLinhas, 2).Value = "Nome do Arquivo" '.Value = arquivoObj.Name
    Cells(numeroLinhas, 3).Value = "Tipo" '.Value = Right(arquivoObj.Name, 3)
    Cells(numeroLinhas, 4).Value = "TTL de Páginas" '.Value = numPaginas 
    Cells(numeroLinhas, 5).Value = "Nº da Página" 'Número da página do arquivo 

    Cells(numeroLinhas, 7).Value = "Largura" 'Largura da Página ‘Set pageSize = acroExchPage.GetSize()
    Cells(numeroLinhas, 8).Value = "Altura" 'Altura da Página ‘Set pageSize = acroExchPage.GetSize()

Observação 1:
Note que o "Nº da Página", "Tamanho", "Largura", "Altura" serão listadas para cada página do arquivo.
E as colunas 1 a 5 serão repetidas até a última página do arquivo.

Observação 2:
Considere como largura sempre a medida que for menor na comparação largura x altura.
E por lógica, a altura será o que for maior
Preciso disso porque o PageOrientation pode estar em Retrato ou paisagem.

Use esse código para isso:
                        'Largura e altura da página
                        Dim largura As Double
                        Dim altura As Double
                        If pageSize.x < pageSize.y Then
                            largura =