Guru do Excel e Power BI

Boa noite.
Tenho um arquivo no seguinte caminho, D:\ControleDeEstoque.xlsx
Quero identificar quais os nomes das planilhas existentes no arquivo, D:\ControleDeEstoque.xlsx

Tipo isso:

Dim i As Integer
Dim NumSheets As Integer

NumSheets = Sheets.Count
For i = 1 To NumSheets
Cells(7 + i, 19) = Sheets(i).Name
Next i

Porem quero que salve em outro arquivo, Exemplo:
Abrir o arquivo D:\Lista.xlsx e salvar na plan1 celula A1
- Produto
- Entrada
- Saida
- Total
(*) Nome das Planilhas do arquivo D:\ControleDeEstoque.xlsx

Obrigado a todos

Ramon
Bom dia,

Vejo os anexos...
Obs.: O teu arquivo chamado Lista não pode ser "*.xlsx" pois nele estará as macros e este formato não aceita macros. No exemplo eu utilizei o "*.xlsm" que é padrão, mas vc pode utilizar qualquer outro que aceite macros como "*.xlsb" ou "*.xls"

Obrigado Wesley, isto ja irá me ajudar. Abraço.

Ramon
Boa tarde,

Se a minha resposta resolveu teu problema, marque o tópico como resolvido e clique em "Obrigado"...