VBA - sumowanie w komórkach

Witam, mam taki problem:

Mam w excelu dużo arkuszy np. 100 i potrzebuje zsumować na innym arkuszu wartości z danej komórki ze wszystkich arkuszy np. potrzebuje sumę ze wszystkich komórek D1 ze wszystkich arkuszy. Jak to zrobić wykorzystując VBA?

Z góry dzięki za odpowiedź
Krzysiekkk

Coś takiego:

Dim sum As Long
For Each sht In Sheets
    sum = sum + Val(sht.Range("D1").Text)
Next sht
MsgBox CStr(sum)