optellen sheets

[don42]

beste allemaal

Ik zou graag via button een Msgbox krijgen met de optelsom van alle bladen van cel i45
maar dan ook nog de tabbladen die liggen tussen start en herinnering

dit is misschien een begin:
uit de hoed van HSV

If sh.Index > .Sheets("Start").Index And sh.Index < .Sheets("Herinnering").Index Then

 

[Cobbe]

Sub cobbe()
For Each sh In ThisWorkbook.Sheets
If sh.Index > Sheets("Start").Index And sh.Index < Sheets("Herinnering").Index Then
Totaal = Totaal + sh.Range("I45")
End If
Next
MsgBox Totaal
End Sub

 

[don42]

bedankt voor je snelle reactie
werkt perfect