Victor Perdomo respondió:
No encontré nada extraño en la macro. Solo agregue la función IsFileOpen() Pero supongo tu ya la tienes. En este link lo puedes ver funcionando correctamente http://1drv.ms/1G4TSZI Si tienes alguna pregunta no dudes en hacerla. No se te olvide dar...