Sumar totales de varias hojas

Lo primero es saber si los totales están en la misma celda en cada hoja y si siempre es la misma celda.
Si esto no fuera así, por lo menos saber si el total está en la misma columna en cada hoja y si siempre está en la última fila ocupada de la columna.
Si no se diera alguna de las alternativas anteriores, especifícame mejor cual es el caso.
¿Es aleatoria la celda en la que se almacena el resultado de cada hoja o está bien definida?

En primer lugar gracias por responder, mira el total es aleatorio siempre va a cambiar de celda, aunque yo tenia un código para buscar la palabra "total" y que me coja el dato que esta al lado,

Ok, el problema no es tan complicado, pero necesito que definamos la forma en que encontraremos la celda en que se almacena el total.
Necesito saber esto: ¿Cómo encontramos esa celda?
Si utilizas la función para buscar la palabra total, envíame el código.

For fila = 5 To 100
If Cells(fila, 1).Value = "TOTAL" Then
ActiveCell.Offset(0, 1).Select
Selection.copy
End If
Next
O sea con este código yo busco en la hoja la palabra total y copio la celda de enseguida, pero necesito entonces ese valor guardarlo en una variable para luego sumarlos junto con los demás valores de las otras hojas y dar el valor total en una hoja resumen, yo tenia la idea de ir pegando los valores totales de las hojas e irlas pegando en la hoja final de resumen junto con el nombre de la hoja, pero se me dificulta cuando cambia el numero de hojas

No indicas la columna, pero si la palabra total aparece sólo una vez en la hoja, puedes utilizar este procedimiento para obtener la celda en que aparece la palabra "TOTAL"
'Retorna el valor de la celda que está ala derecha del cuadro que contiene la palabra buscada
'por defecto, la palabra "TOTAL"
Function fcnDevolTotal(hojaBusq As Worksheet, Optional strBuscar As String="TOTAL") As String
    Dim resulta As Range
    Set resulta = hojaBusq.UsedRange.Find(strBuscar, LookIn:=xlValues, LookAt:=xlWhole)
    If Not resulta Is Nothing Then
        fcnDevolTotal = resulta.Offset(0, 1).Value
    End If
End Function
Ahora haremos la función que recorre todas las hojas buscando el total y sumandolos
Function fcnCalcTotal() As Double
    For i = 1 To Sheets.Count
        FcnCalcTotal = fcnCalcTotal + fcnBuscar2(Sheets(i), "TOTAL") 'El valor TOTAL está demás, ya que es el valor por defecto, pero lo agrego para que notes que puede ser cualquier valor
    Next
End Function
Ahora asignamos el valor resultante a una celda determinada, ejemplo A1 de la hoja Resumen.
Debes considerar que si la hoja resumen tiene un camplo llamado TOTAL, también lo considerará, así que le puedes poner Total Mes o algo así.
Sheets("Resumen").Cells(1,1) = fcnCalcTotal()
Espero te sirva.
Saludos.

Hola, ya la pegue en un modulo pero no me corre

Sheets("Resumen").Cells(1,1) = fcnCalcTotal()
Debe poner esta línea dentro de una macro que la ejecute ¿Lo hiciste?

Hola, hice lo que me dijiste pero al correrla me muestra un error de compilación en donde dice que no se ha definido Sub o Function y me marca la linea en donde esta fcnBuscar2

Fue un error mío.
Reemplaza fcnBuscar2 por fcnDevolTotal.

Hola, mía hice lo que me dijiste de remplazar, pero cuando recorre todas las hojas no me da el resultado en la hoja resumen si no que me aparece un error de compilación que dice que los tipos no coinciden

Ese error aparece cuando (en este caso) intentas sumar dos elementos de distinto tipo, o sea un número y una cadena, por ejemplo.
Lo más probable es que en todos los valores que toma, haya alguna celda que esté vacía, por lo que, al sumar un número con la cadena vacía, te da el error de tipo.
¿Estás seguro que todas las hojas tienen un total asignado?
Verifica esto y si es así y con esto, aún te envía error, dime en qué linea te da el error. Eso lo puedes saber presionan "Depurar" cuando te aparece el mensaje de error.

Si todas están con el valor asignado. Tengo cinco hojas A; B;C;D;E;F creo que de pronto aquí este el error y a la ultima hoja o sea a la séptima hoja le doy el nombre de resumen (no se si esta hoja la crea el código o debo crearla) el código me hace el recorrido normal de las hojas pero cuando llega a la séptima aparece el error de compilación en donde dice que no coinciden los tipos.)
Function fcnDevolTotal(hojaBusq As Worksheet, Optional strBuscar As String="TOTAL") As String
    Dim resulta As Range
    Set resulta = hojaBusq.UsedRange.Find(strBuscar, LookIn:=xlValues, LookAt:=xlWhole)
    If Not resulta Is Nothing Then
        fcnDevolTotal = resulta.Offset(0, 1).Value
    End If
End Function
______________________________________________________________________________________________
Function fcnCalcTotal() As Double
    For i = 1 To Sheets.Count
        fcnCalcTotal = fcnCalcTotal + fcnDevolTotal(Sheets(i), "TOTAL")
    Next
End Function
____________________________________________________________________________________________
sub sumar ()
Sheets("Resumen").Cells(1,1) = fcnCalcTotal()
end sub
Este es el código que pegue en un modulo. O sea si tengo 6 hojas y la hoja resumen el contador queda en 7 o sea que el código toma la hoja resumen también.