Teste se a pasta de trabalho está aberta
Aqui está um código básico real para testar se uma pasta de trabalho está aberta, testando o nome de uma pasta de trabalho, não o nome totalmente qualificado, incluindo o caminho.
Eu estava escrevendo código em uma planilha que alterava planilhas em outra pasta de trabalho e queria ter certeza de que a pasta de trabalho 2 estava aberta antes que o código fosse executado na pasta de trabalho 1.
Sub TestByWorkbookName () Dim wb como pasta de trabalho para cada wb em pastas de trabalho If wb.Name = "New Microsoft Excel Worksheet.xls" Then MsgBox "Found it" Exit Sub 'código de chamada aqui, vamos apenas sair agora End If Next End Sub
