How to create a msgbox that show sum result of A1-A10 ?

[yannipr]

HI
I want to create a msgbox that show sum result of A1-A10
My macro is:

  

Sub Macro3()
Viewsum = WorksheetFunction.Sum(ActiveSheet(A1 - A10))
MsgBox Viewcsum
End Sub

How do I do it right?

Thanks