Ocultar una libro consultado

Hola a todos.

Desde un libro hago una búsqueda del contenido de una celda en otro libro y
pinto la celda contigua a la encontrada en la celda contigua a la de la
búsqueda, mediante una macro.

Mi problema está en que durante una fracción de segundos se abre el 2º libro
y se ve un poco feo. ¿Hay alguna manera de abrirlo sin que se vea?
Gracias, ahí va la macro:

Sub Macro1()

Dim Codigo As String
Dim Concepto As String
Dim kk As Range



Codigo = ActiveCell
If Val(Codigo) = 0 Then Codigo = " "

Workbooks.Open Filename:="C:\Documents and
Settings\Antonio\Escritorio\ACTUARIOS\Conceptos.xls"

With Worksheets(1).Range("A1:A500")
Set kk = .Find(Codigo, LookIn:=xlValues)
If kk Is Nothing Then
Concepto = ""
Else
Concepto = Range("$B$" & kk.Row)
End If
End With


ActiveWindow.Close SaveChanges:=False

Range(Cells(ActiveCell.Row, ActiveCell.Column + 1),
Cells(ActiveCell.Row, ActiveCell.Column + 1)).Select

ActiveCell = Concepto

Range(Cells(ActiveCell.Row + 1, ActiveCell.Column - 1),
Cells(ActiveCell.Row + 1, ActiveCell.Column - 1)).Select


End Sub