Excel VisualBasic Script

Sub active()
    Workbooks("your.xls").Windows(1).Activate
End Sub