Sub Macro1()
Dim myBk As Workbook
Set myBk = Workbooks.Open(Application.GetOpenFilename(, , "Select
the File"))

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp)(1).Offset(2, 1)

myBk.Close False

End Sub

In the above macro I need to prevent macros operating in the External
File when it opens. I also need the Named Range ("To_Database") from
the External File to be copied into the file from which this macro
operates as PasteValues.

At the moment the Formula in the Named Range is coming across, so that
I'm creating an External Formula Link.

How can I do this???