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

Keep forgetting to count the parentheses. :)

"JLGWhiz" wrote:

Try this:
Range("E10").Value = WorkSheetFunction.Sum(Worksheets("Actual vs
Budget").Range("C36, E36, G36, I36")

"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