Quisiera una Macros en Excel que me guarde un rango en .txt y que a la vez lo comprima en .zip?

Bien deseo una macros que me guarde todo un rango que yo elija y lo guarde en .txt y que a la vez lo comprima en un archivo zip. Y que se guarde con un nombre que yo ponga en una celda del Excel.