Macro para nombrar hoja

Buenas tardes.

Les comento mi inquietud.

Tengo un libro con 8 hojas, lo que pretendo realizar con su ayuda es una macro que me recorra las hojas y me nombre la hoja que esta en el lugar 7 y la hoja en el lugar 8.

La hoja en el lugar 7 con el nombre "O.C.M."

La hoja en el lugar 8 con el nombre "O.C.V."

A demás me limpie en la hoja con el lugar 7 el rango "B21:J54", y en la hoja con el lugar 8 me limpie el rango "B21:J42"

Espero haber sido muy explicito.

Gracias y no dudando de su ayuda quedo en espera de su respuesta.

1 Respuesta

Respuesta
1

Ok, estarutina hace lo que necesitas

Sub cambia()
Sheets(7).Select
ActiveSheet.Name = "O.C.M."
Range("B21:J54").ClearContents
Sheets(8).Select
ActiveSheet.Name = "O.C.V."
Range("B21:J42").ClearContents
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas