Application.ThisWorkbook (Excel)

Retorna um objeto Workbook que representa a pasta de trabalho onde o código de macro atual está em execução. Somente leitura.

Use esta propriedade para fazer referência à pasta de trabalho que contenha o código de macro. ThisWorkbook é a única maneira de fazer referência a uma pasta de trabalho de suplemento de dentro do próprio suplemento. A propriedade ActiveWorkbook não retorna a pasta de trabalho do suplemento, retorna a pasta de trabalho que está chamando o suplemento. A propriedade Workbooks pode falhar, já que o nome da pasta de trabalho provavelmente foi alterado quando você criou o suplemento. ThisWorkbook sempre retorna a pasta de trabalho na qual o código está sendo executado. Por exemplo, use um código como o seguinte para ativar uma folha de diálogo armazenada na pasta de trabalho do seu suplemento: ThisWorkbook.DialogSheets(1).Show Esta propriedade só pode ser usada de dentro do Microsoft Excel. Não é possível usá-la para acessar uma pasta de trabalho de qualquer outro aplicativo.

Dim wbThisWorkbook As Workbook
Set wbThisWorkbook = ThisWorkbook