Olavo Morais

Fiz no Excel 2016 o seguinte e deu certo: Dim nome_planilha As String Dim nome_pasta As String Nome_Planilha = Sheets(1).Name 'Capturar o nome da planilha desejada na pasta em uso Nome_Pasta = ActiveWorkbook.Name 'Capturar o nome da pasta em uso