Hola a tod@s,

Soy muy novato.

No veo el error en el código adjunto.

¿ Cual es ?

Saludos cordiales.

Hola

Nunca es conveniente colocar imágenes, en programación jamás una imagen dice más que mil palabras. Prueba cambiando esta línea así:

Dim Hoja as WorkSheet

¿Notas la diferencia? Comentas

Hola Abraham.

No funciona.

Ahora....

Sugiero veas con detalle el cambio que hice y que no has aplicado.

Perdona, no sé a que te refieres.

¿ podrías mandarme el código completo?

Perdona las molestias y muchas gracias,

Estimado, te comenté que en estos temas una imagen jamás vale más que mil palabras e igual volviste a enviar una imagen. Ya te pasé la línea del aparente error con la corrección, cuestión tan simple como ver con detalle y paciencia la diferencia y hacer lo mismo o ¡Incluso copiar y pegar reemplazando ya que yo sí envié como texto! Si tú me pides que mande todo el código completo, es decir, que haga ¡Todo! quiere decir que quizás no te diste cuenta que aquí todos ayudamos en nuestros tiempos libres y sin cobrar nada. 

Mira donde está la diferencia de lo que te dice el maestro Abraham

Dim Hoja as WorkSheet <--------------------- Lo que te dice que cambies

Dim Hoja as WorkSheetS <-------------------- Lo que tu tienes

y por supuesto también tienes que hacer el cambio en la línea de abajo

For Each hoja In ThisWorkbook.Worksheets <----------Quitale la S también