Summe eines Bereiches als MsgBox

Die Summe eines bestimmten Bereiches soll
in einer MessageBox ausgegeben werden !


Sub Summe()
   MsgBox WorksheetFunction.Sum(Range("A1:A500"))
End Sub