Abre muchas veces cuadro de dialogo abrir archivo

Espero que me ayude con un problemita que me surgio mientras estaba realizando mi macro. Yo tengo mi macro en un archivo sin datos, cuando ejecuto mi macro tengo abierto otro archivo donde se le hacen varias cosas con la macro en determinado momento se pide abrir un archivo es donde se abre el cuadro de dialogo para seleccionar el archivo, hasta ahi todo bien, me abre el archivo, pero al momento que quiero interacturar entre los achivos con las formulas me muestra el cuadro abrir archivo (2 veces por cda formula). Si selecciono el archivo del que quiero los datos todas las veces que aparece me jala los datos bien, pero el punto es que si ya tengo el archivo (y su nombre en una variable que uso en las formulas )abierto ya no me muestre ese cuadro para abrirlo.

Nombre_hoja = ActiveSheet.Name

NArchivo = ActiveWorkbook.Name

Archivo = Application.GetOpenFilename

Workbooks.Open Filename:=Archivo

NArchivoTotal = ActiveWorkbook.Name

Sheets("Reporte").Visible = True

Windows(NArchivo).Activate

'identifica el numero de fila en el que se encontro el dato buscado

Fila = [a65536].End(xlUp).Row 'identifica la ultima fila con datos de la hoja

ActiveCell.FormulaR1C1 = _

"=MATCH(RC[-9],'[NameArchivoTotal]Reporte'!R1C2:R100646C2,0)" 'escribe la formula en la celda P4

Selection.AutoFill Destination:=Range("J2:J" & Fila) 'arrastra la formula hasta la ultima fila

'De arcuerdo al indice encontrado anteriormente copia el dato del archivo referencia al archivo activo

Range("K2").Select

Fila = [a65536].End(xlUp).Row

ActiveCell.FormulaR1C1 = _

"=INDEX('[NameArchivoTotal]Reporte'!R1C11:R100646C11,RC[-1])"

Selection.AutoFill Destination:=Range("K2:K" & Fila)

[code]