Importar hoja a un libro de macros

[Rob91mv]

Hola Soy Roberto y haciendo un trabajo me surgio la siguiente duda: La idea consiste en que con macros abro, desde mi Libro, un archivo excel, el cual después copio su unica hoja(importo) hacia mi libro que usa la macro.

El problema es que tengo una Restricción, la cual es que solo copia el archivo que tenga de nombre en su unica hoja como "Libro1", es decir, si se llama de otra forma, entonces no lo puedo importar.

Acá envio la macro que tengo, porfavor si me pueden ayudar :C

Sub copiarhoja1()

Set l1 = Workbooks("Programa Backlog")

With Application.FileDialog(msoFileDialogFilePicker)

.Title = "Seleccione archivo de excel"

.Filters.Add "Archivos excel", "*.xls*"

.AllowMultiSelect = False

.InitialFileName = ThisWorkbook.Path

If .Show Then

Set l2 = Workbooks.Open(.SelectedItems.Item(1))

l2.Sheets("Libro1").Range("A1:AZ500000").Copy l1.Sheets("Backlog").Range("A2")

End If

End With

l1.Activate

Sheets("Backlog").Select

End Sub

[Antoni]

__________________________________________________________________

Cambia:

l2.Sheets("Libro1").Range("A1:AZ500000").Copy l1.Sheets("Backlog").Range("A2")[/CODE]

Por:

[CODE]l2.Sheets(1).Range("A1:AZ500000").Copy l1.Sheets("Backlog").Range("A2")[/CODE]

___________________________________________________________________