Es lo que te comentaba en el sms anterior tu tienes que poner tantos case como posibles zoom quieras contemplar. Si empiezas en 100 deberá haber un case 100 y si pasas a un zoom de 85 debe haber un case 85 para que después pueda seguir reduciendo. El problema que tiene esto es que si cambias manualmente el zoom, por ejemplo a 91, y no hay un case 91, porque no lo has contemplado, el programa se quedará quieto. Para solucionarlo escribe justo antes del end select "case else" y el zoom que quieras que haga si no cumple ninguno de los casos que tú has planificado en la macro.
Ya me dirás que tal te va.