Third time is a charm:

Range("E10").Value = Application.WorkSheetFunction.Sum(Worksheets("Actu al vs
Budget").Range("C36, E36, G36, I36"))

OK, that's it! This time I looked before I posted.


"Carlee" wrote:

Hi all,
I am using the following VBA to sum several discontiguous cells from Sheet
1, and placing the total on Sheet 2. Is there a more efficient way of doing
this without getting too into coding? I am not a strong coder adn want to
avoid it if I can.

Range("E10").Value = Worksheets("Actual vs Budget").Range("C36") +
Worksheets("Actual vs Budget").Range("E36") + Worksheets("Actual vs
Budget").Range("G36") + Worksheets("Actual vs Budget").Range("i36")

--
Carlee