Hi
change
rngTotal = Application.Sum(rngTotal)

to
rngTotal.value = Application.Sum(rngdata)


--
Regards
Frank Kabel
Frankfurt, Germany


Tim Johnson wrote:
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
.