Necesito macro que guarde hoja activa como txt en ubicación distinta a archivo excel

Necesito una macro que me guarde la hoja activa en texto en una ubicación distinta al archivo del libro excel que estoy usando y a la vez guarde el archivo del libro en su ubicación original. Asi mismo las copias que se generan en txt deberán adoptar un nombre de archivo distinto a fin de que no se sobreescriban no así el libro que si se sobrescribirá a fin de continuar trabajando en el archivo de excel.

Arturo Almaraz "Saludos"