Se o arquivo estiver na mesma pasta e o nome da pasta não será alterado você pode fazer asism: NomePasta = Right(ThisWorkbook.Path, 8) José B...