Excel - sumar hojas con macro

buenos dias a todos
tengo una macro que me crea una hoja nueva (pulsando un boton) y quisiera sumar una celda concreta A1 de cada hoja y que el resultado me lo de en otra hoja llamada
" TOTAL FACTURA "
esta es mi macro

GOMEZ Macro
' Macro grabada el 24/08/2008 por Usuario
'
' Acceso directo: CTRL+g

Sheets("GOMEZ").Select
Sheets("GOMEZ").Copy Before:=Sheets("2")
Range("A15:G41").Select
Selection.ClearContents
Range("G11").Select
Selection.ClearContents
Range("I4:R48").Select
Selection.ClearContents
Range("G11").Select

un saludo y dar las gracias a todos por la ayuda que ofreceis.

Muy buenas,

mira a ver si te sirve lo siguiente:

Sub totales()
h = 0
For i = 1 To Sheets.Count
Sheets(i).Select
h = h + Cells(1, 1)
Next
Sheets("TOTAL FACTURA").Select
Cells(1, 1) = h - Cells(1, 1)
End Sub

Un saludo. Juanjo.