summing cells

[CG Rosén]

Hi Group,

Sorry for a probably simpel question.
What code to use for adding the values of
cells A1 to N1 in VBA, without using the FormulaR1C1 method?

Brgds

CG Rosén

 

[Nigel]

Result = Range("A1").Value + Range("N1").Value

or if putting into cell on worksheet eg C2

Range("C2").Formula = "=A1 + N1"


Cheers
Nigel

 

[Don Guillett]

MsgBox Application.Sum(Range("a1:n1"))

 

[Guest]

Hi,
To sum a1:n1 of the active sheet:
Dim v as Variant
v = application.WorksheetFunction.Sum(range("A1:N1"))
Then you can place it in another cell: Range("A2") = v

Regards,
Sebastienm