Nombre de archivo en macros

Hola, mi problema es que quiero activar un archivo en una
macro sin utilizar explititamente el nombre del archivo
sino utilizando algun comando porque es una macro que va a
ser utilizada en diferentes archivos con diferente nombre
pero que no van a estar abiertos al mismo tiempo.

aqui pongo un ejemplo:

Sub Mr_Valvulas()
'
' Mr_Valvulas Macro
' Macro grabada el 22/07/2003 por dgranada
'

'
Sheets("MR").Select
Selection.AutoFilter Field:, Criteria1:="<>0",
Operator:=xlAnd
Range("C5:K5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:="C:\Estandar
CAT\MRVALVULAS.xls"
Sheets("MATERIAL REQUISITION - MR").Select
Range("D14").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("EJEMPLO.xls").Activate
Selection.AutoFilter Field:
Range("A1").Select
Sheets("Resultados").Select
Windows("MRVALVULAS.xls").Activate
End Sub

El nombre de mi archivo es EJEMPLO. Como hago para que la
macro active ese archivo con una funcion o un comando.

Gracias