Necesito una macro para comprimir un archivo en vba excel, pero sin application.getopenfilename

Necesito una macro para comprimir un archivo en vba excel, pero sin application.getopenfilename, ya que la ruta y el archivo los tengo almacenados en unas celdas de la hoja de calculo