if rngData holds the source data and rngTotal is for the results then you
want to change

rngTotal = Application.Sum(rngTotal)

to

rngTotal = Application.Sum(rngData)


--
George Nicholson

Remove 'Junk' from return address.


"Tim Johnson" wrote in message
...
Thi is what I tried but does not work.
Thanks

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngData As Range
Set rngData = Range("B2:B10")

Dim rngTotal As Range
Set rngTotal = Range("A3")

rngTotal = Application.Sum(rngTotal)



End Sub





-----Original Message-----
Hi
change
rngTotal = Sum(rngTotal)

to
rngTotal = application.Sum(rngTotal)


--
Regards
Frank Kabel
Frankfurt, Germany


Tim Johnson wrote:
I am knowledgeable about Access VBA but new to XL VBA
I want to sum B2:B12 and display in A1. This is waht I
have:

Dim rngTotal As Range
Set rngTotal = Range("A1")


Dim rngData As Range
Set rngData = Range("B2:B12")

rngTotal = Sum(rngTotal)

I am not getting an error. What is the right way?
Thanks
.