Vamos abrir uma nova sessão do Excel para abrir uma planilha copiar uma célula e fechar.

Segue um exemplo de código que executa essas tarefas:

Sub Buscar_planilha()

    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
    File = "C:\Temp\Planilha.xls"
    Set xlw = xl.Workbooks.Open(File, False, True)
    xlw.Sheets("Sheet1").Select
    xlw.Application.Range("A1").Select
    xlw.Application.Selection.Copy
    ThisWorkbook.Activate
    Sheets("Sheet1").Select
    Range("A1").PasteSpecial xlPasteValues
    xlw.Application.CutCopyMode = False
    xlw.Close False
    Set xlw = Nothing
    Set xl = Nothing

End Sub

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.