Excel VisualBasic Script

Sub active()
    MsgBox Workbooks("your.xls").Windows(1).ActiveCell.Text
End Sub