Excel - auto sumar al abrir archivo

Hola, tengo una planilla de exel en donde en una celda tengo un numero y necesito que cada vez que yo habra el archivo a ese numero se le sume 1, por ejemplo: si tengo el numero 25, al abrirlo que me aparesca automaticamente el numero 26. y como hago para que de algunas celdas me guarde en otro documento unas cadenas de textos.
gracias

esto lo colocas en el modulo de visual basic en thisworkbooks

sub auto_open
range("A1").value = Range("A1").value + 1
end sub

Hummm, creo que Haver se confundio y coloco Thisworkbooks, quizo decir "en un modulo normal"

Si es en thisworkbooks iria asi:

Private Sub Workbook_Open()
range("A1").value = Range("A1").value + 1
End Sub

Abraham