Added as in Summed like =A1+B1

Or added like =A1 & B1

Go with the first one.

Create a Command Button with this code

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = ActiveSheet.Range("A1:B1")
MsgBox "sum of A1 and B1 is " & Application.WorksheetFunction.Sum(rng)
End Sub

No error trapping.


Gord Dibben MS Excel MVP



On Fri, 19 Mar 2010 16:02:01 -0700, Mel wrote:

I am trying to create a command button so that when a user clicks on the
command button a message box pops up with the the answer to 2 cells added
together