Messagebox sum

Hello everybody,

I am a newbie to Vba and I wonder if someone can help me with a little problem? I would like a message box that will display the sum of all the items in a selection I have come thus far:

Sub SumAmount()


'
Dim summ As Range
Set summ = Selection
For Each summ In Selection
'?
'?
Next summ
Msgbox summ
Set summ = Nothing
End Sub

Happy for any help :thanx:

Re: Messagebox sum

:thanx: :thanx: :thanx:
Thank you very very much to the both of you!!
//Robert