Make a cell equal the sum of selected cells

[Wrathor]

I'm working in a spreadsheet that has duplicate items with corresponding values to the items, and i'm trying to consolidate them.

I have a free cell in "C1" where i would like to aggregate values of duplicate items.

Where I'm having trouble is aggregating the data into the open cell. I know I can enter the following code for making the open cell equal to my selection, but i'm wondering if there is a way to make the open cell equal to the sum of my selected cells.

Range("C1") = Selection.Value

Any help would be greatly appreciated.

 

[VoG]

Try

Range("C1").Value = WorksheetFunction.Sum(Selection)

 

[Wrathor]

It worked!

I use the following code to do the aggregation, then make my first selected cell in the active cells equal to the aggregated amount.

Range("C1").Value = WorksheetFunction.Sum(Selection)
ActiveCell.Value = Range("C1").Value

Thanks a million for your quick and accurate help as always MrExcel users!