How to get Excel sheet name in QTP

code for getting excel sheet name  is given in below example.

Set xl = CreateObject("Excel.Application")

set wb = xl.Workbooks.Open "newbook.xls"

print wb.Worksheets(1).name

This example will print the excel sheet name in QTP