Comprimir carpetas con VBA (.zip)

Necesito una macro para comprimir todas las carpetas que hay en una ruta concreta.