Comprimir archivo desde VBA

En el trabajo manejamos muchos archivos .zip (de 30 o mas) necesito una macro que me descomprima los zip me de la posibilidad de agregar un archivo .pdf o .tiff a cada carpeta descomprimida y volverlas a comprimir.

Seria de gran ayuda una macro así muchas gracias de ante mano

A mi saber y entender desde Excel no podrás comprimir un libro ya que se trata de una aplicación fuera de Office y necesitamos darle los parámetros a WinZip (ruta y nombre del archivo a comprimir)
Lo que sí puedo darte es la instrucción que llama al WinZip (y allí ingresar las opciones) y también la que te envía por correo un archivo adjunto (algo es algo ;-)
Sub miWinZip()
'macro que llama al progrma Winzip
'macro desarrollada por Elsamatilde el 3/10/06
Dim llamada As Variant
Dim ruta As String
'en caso de no encontrarlo mostrará mensaje
On Error GoTo MensaError
'se asigna la ruta predeterminada a la variable
ruta = "C:\Archivos de programa\WinZip\WINZIP32.EXE"
'se ejecuta el programa
'el número 3 indica que la aplicación se maximiza con foco
llamada = Shell(ruta, 3)
Exit Sub
MensaError:
MsgBox "No se encuentra el programa buscado. Verifique dónde se encuentra instalado el archivo exe"
Exit Sub
End Sub
Sub EnviaCorreo()
Dim myOLApp
Dim myOLItem
Dim olMailItem
Dim midire, miasunto, miRuta, mitexto As String
'datos del mail a enviar
midire = ActiveSheet.Range("B5").Value
miasunto = ActiveSheet.Range("B8").Value
mitexto = ActiveSheet.Range("B10").Value
'se crea un objeto Outlook, Mail
Set myOLApp = CreateObject("Outlook.Application")
Set myOLItem = myOLApp.CreateItem(olMailItem)
'se establecen los campos del mensaje
With myOLItem
.to = midire 'campo A o Para
.Subject = miasunto 'campo Asunto
.body = mitexto 'cuerpo del mensaje
.Attachments.Add ("C:\test.zip") 'adjunta archivo
'enviar
.send
End With
'se liberan las variables creadas
Set myOLApp = Nothing
Set myOLItem = Nothing
End Sub