Hola, ya solucione el problema, el código para obtener el nombre de la hoja de calculo, de un archivo excel es el siguiente:
attach = server.mappath(RutaSubir)
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open attach
a = xls.Worksheets(1).Name
set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "Select * from ["& a &"$]"
xls.Workbooks.Close
El numero 1 del Worksheets es el indice de la hoja que se desea saber el nombre....
Ojala que a alguien mas le sirva...