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

Dim wb as workbook

For each wb in Workbooks

 wb.name

wb.saveAs

Next 

Appreciate any suggestion/idea to retrieve those excel work book names in test complete.

Thanks in Advance.

Sudhakar