salve
un automatismo è rappresentato dalla macro che segue:
Sub elenca()
riga = 1
For Each SH In Sheets
If SH.Name <> "Foglio3" Then
Cells(riga, 2).Value = SH.Name
Cells(riga, 1).Formula = "=" & SH.Name & "!A1"
riga = riga + 1
End If
Next
End Sub
quella che vedi, considera il Foglio3 come foglio di Riepilogo nel quale in colonna B elenca i nomi di tutti i fogli
della cartella a partire da riga 1 e nella colonna A immette la formula che preleva per ciascun foglio il valore della cella A1
Praticamente quello che vedi sotto è il risultato.
colonna A ---- --colonna B
=Foglio1!A1-----Foglio1
=Foglio2!A1-----Foglio2
Devi però cambiare i riferimenti all'interno della macro in base alle tue necessita.
Cambiare il nome del foglio3 con il nome del tuo foglio di riepilogo
e cambiare e il riferimento della cella da cui prelevare il valore.
saluti
Giap