Ciao, modifica in questa maniera:
codice:
CAPT = XLAPP.Caption 
RES = FindWindow(vbNullString, CAPT)