Macro seleccionar archivo, abrir, copiar y cerrar

Tengo un problema con una macro que le ando dando vueltas. Lo que pretendo hacer es, a través de una macro, abrir un archivo con el explorador (en formato de excel), abrir ese archivo seleccionado, copiar un rango determinado de celdas (una fila) y ese rango pegarlo en el libro activo. El código que tengo en concreto es el siguiente:

Sub openbook1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim myfile, mybook, a, b, c As String
ii = 3
iii = ii + 3
On Error Resume Next
'''''''
myfile = Application.GetOpenFilename("Archivos Excel (*.xl*), *.xl*")
mybook = ActiveWorkbook.Name
Workbooks.Open Filename:=myfile
FullName = Split(myfile, Application.PathSeparator)
a = FullName(UBound(FullName))
''''''''''
Workbooks(a). Sheets("Hoja1"). Range(Cells(4, 4), Cells(4, iii)).Copy Destination:=Workbooks(mybook). Sheets("Hoja1"). Range(Cells(4, 4), Cells(4, iii))
Application.CutCopyMode = False

'''''''''''
Workbooks(a).Close False
Application.ScreenUpdating = True
End Sub

-------------

Pero al ejecutarla no se me copian los datos desde el archivo seleccionado mediante el explorador, ¿me podría ayudar alguien?, por más que repaso el código no encuentro el posible fallo. Espero algún alma caritativa que me ayude, soy "nuevo" posteando, pero supongo que se podrá agradecer mediante puntuación las respuestas!