Excel - Agregar linea con macro

Estimados!

Como hago para agregar una liena en una hoja determinada?.. tengo el siguiente codigo:

Sheets("hoja1").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown

Pero no quiero tener la necesidad de seleccionar la hoja1 y luego insertar la linea. ¿Como lo haría sin moverme de la hoja 2 ó 3.. o cualquiera y agregar una linea a la hoja1?.

Saludos.

AM

Muy buenas,

Te valdría con identificar la hoja en la que estás, ejectuar tu macro, y volver a la hoja identificada. Quedaría así:

Sub insertar_linea()
h = ActiveSheet.Name
Sheets("hoja1").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Sheets(h).Select
End Sub

Espero que te sirva.

Un saludo. Juanjo.

Sheets("hoja1").Rows("4:4").Insert Shift:=xlDown

Saludos, desde Baires, JuanC

La opción de JuanC es Igual de eficaz, pero mucho más eficiente, vamos, que no hay color.

Un saludo.

Estimados,
Muchas gracias por todas las respuestas.

Por ahora, probaré con la formula más eficaz.

Saludos,

AM

Hay que usar lo justo la grabadora de macros. el código que genera no es eficaz jeje.