Leer nombre hojas excel

Buenas.
Necesito recorrer las hojas que un libro excel para
comprobar su nombre y hacer determinados calculos
dependiendo de la hoja en cuestion. El siguiente codigo
funciona, pero NO FUNCIONA


'Abre el Excel para ejecutar el fichero.
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set book = xl.WorkBooks.open(Server.MapPath("./Temp/")
+ "\" + fichero)

'Abra que buscar primero la hoja por su nombre para
evitar problemas
'ERROR: Indica que no es un objeto de la colección
for each ws in book.worksheets
Response.Write "Nombre de la hoja: " & ws.name & " "
next