MsgBox ActiveWorkbook.Name

--
Don Guillett
SalesAid Software

"Patrick Simonds" wrote in message
...
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