I know this is a really old thread but I found a solution and thought I should share. You can use
Code:
AppActivate XL.Windows(1).Caption