In the code below, is there any way to replace the referance to "Vacation
Mark-up (PT Drivers) 2007.xls" with a variable which returns the current
document name?


Private Sub Add_Name_Click()

Unload EmployeeList

Application.EnableEvents = False
Application.ScreenUpdating = False

Windows("EmployeeList.xls").Activate
Range("A300").Select

Application.Run "EmployeeList.xls!UpdateName"

Workbooks("Vacation - Leave Book Master.xls").Activate

Application.ScreenUpdating = True
EmployeeList.Show

Application.EnableEvents = True

End Sub