Hola mira ya pude solucionar este problema lo que pasa es que la hoja1 que queria seleccionar era la hoja del libro donde queria hacer el reporte pero la macro queria irse a la hoja del complemento. cambie la sentencia "Hoja1.select" por la siguiente.
ActiveWorkBook.Sheets(1).Select
No se si sea la mejor forma pero funciono, por favor si hay una mejor forma ayudame.
Re: No funciona mi Macro
Hola mira ya pude solucionar este problema lo que pasa es que la hoja1 que queria seleccionar era la hoja del libro donde queria hacer el reporte pero la macro queria irse a la hoja del complemento. cambie la sentencia "Hoja1.select" por la siguiente.
ActiveWorkBook.Sheets(1).Select
No se si sea la mejor forma pero funciono, por favor si hay una mejor forma ayudame.
Hoja1.Select
ActiveSheet.Name = "MRP01"
ActiveSheet.Next.Select
ActiveSheet.Name = "MRP02"
'
Hoja1.Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Columns("A:B").Select
Selection.Insert Shift:=xlToRight
Range("A1") = "Localidad"
Saludos y Muchas Gracias.
Necesito saber Mas