Reconocer hojas Existentes

Hola a todos

Necesito ayuda con un trabajo que me tiene bastante preocupado

Se trata de una macro que abra un archivo existente (desde el nombre de una celda) este paso lo tengo bien claro.

Pero cuando me abre el archivo en este pueden haber 1 o 2 o 3 o hasta 5 hojas con diferentes nombres. Aquí es donde tengo el problema: necesito tomar algunos datos de las hojas que existen (en este punto tengo que crear una hoja con un nombre: "Totales" y pegar la información de las otras hojas)

En este momento solo tengo como abrir el archivo y me quede pegado con el copiado y pegado...

Por favor con su ayuda y comentarios, se lo agradezco de todo corazón.

pego código existen

Sub Macro1()'' Macro1 Macro'' Acceso directo: CTRL+w'
Dim valor As StringActiveSheet.Range("B2").Selectvalor = ActiveCell.Valuecarpeta1 = "E:\Documents and Settings\caguilar1\Escritorio\Ericsson\Pruevas\"Workbooks.Open carpeta1 & valor & ".xls"
End Sub[/PHP]