get all the opened excel workbook names

Hi,   I'm trying to get all the opened excel workbooks names and save it in different location by save as.   The below VBA code does that but couldn't use it in test complete.   The VBA code D...