Comprimir un libro de Excel

Estimados buen día tengo una duda,

Tengo una macro el cual al guardar automáticamente se crea una carpeta con el nombre del libro "back_Cartera.xlsm" y dentro de dicha carpeta se crea otra con la fecha y hora con la que se guardo "02-09-2019-15-29-30" pero mi pregunta es como puedo hacer para que la segunda carpeta se guarde comprimida con .7z