Workbook.HasVBProject (Excel)
Retorna um valor Boolean que representa se a pasta de trabalho possui uma pasta projeto Microsoft Visual Basic for Applications anexado. Boolean somente leitura.
Essa propriedade é mais útil para determinar programaticamente se uma pasta de trabalho precisa ser salva em um formato de arquivo habilitado por macro. Caso seja salva em outro formato, as macros e os projetos de código contidos no documento talvez sejam perdidos.
Dim booHasVBProject As Boolean
booHasVBProject = ActiveWorkbook.HasVBProject