Este fórum está sendo desativado

[DouglasTecmodern]

Pessoal, bom dia,

Gostaria de Saber se podem me ajudar,

Tenho uma planilha que gera planilhas e estas com nomes diferentes,

- gostaria de saber se conseguem me ajudar, sei que posso usar ;

Sub fechar()

Workbooks("Book1").close

end sub

Executando no Book2

- Mas gostaria que fosse por exemplo;

Sub fechar()

Dim NomeArq as String

NomeArq = Sheets("Plan1").Range("C5").value

workbook(NomeArq).close

end sub

NomeArq sreia Book1, estando na celula C5 no Book2

Bom... espero que consigam me ajudar!! Obrigado

[alexandrevba]

Bom dia!!

Contando que na célula tem a extensão do arquivo e que as mensagens de alerta foram tratadas.

Código: Selecionar todos

Workbooks(Worksheets("Plan1").Range("C5").Value).Close True

Att