sum on variable range

[Ivo75]

hello again,

I would like a vba code to add all cells between cell A2 to the last filled cell in column A. I would prefer not to use the .FormulaR1C1 I'd much rather like to use the column/row letters/numbers.

I thought it would be something like
range("A5").value=sum(sheets("sh1").range("A:A")
But that's not it

 

[VoG]

Hi. Try

Range("A5").Value = WorksheetFunction.Sum(Sheets("sh1").Columns("A"))

 

[Ivo75]

Works perfectly. Thank you