Clean way to sum two cells from another workbook

[Blunder1]

Hi,

I have two works books, a master and a summary. In some of the cells in the summary sheet i need to value to be the sum of two cells in the master book. I'm using the below in my code but would like to modify it so that 5 to the right of the activecell is the sum of cells c14:15 in the master.

Below is the code i currectly use when i dont have to sum

ActiveCell.Offset(0, 4).Value = wb.Sheets("Summary").Range("f30").Value

Thanks in advance

Blunder

 

[VoG]

Try

ActiveCell.Offset(0, 4).Value = WorksheetFunction.Sum(wb.Sheets("Master").Range("C14:C15"))

 

[Blunder1]

perfrct, thank you for your help, VoG

 

[Blunder1]

sorry, what about if i wanted to subtract two cells? This seems to bring up an error

Thanks

 

[VoG]

Then you would need to 'spell it out'

ActiveCell.Offset(0, 4).Value = wb.Sheets("Master").Range("C14").Value - wb.Sheets("Master").Range("C15").Value

 

[Blunder1]

Thanks again

 

[Blunder1]

OK, one last question. What if i needed to sum: C14+(e14-j14) in the same manor?

Thanks

 

[VoG]

Try

ActiveCell.Offset(0, 4).Value = wb.Sheets("Master").Range("C14").Value + wb.Sheets("Master").Range("E14").Value - wb.Sheets("Master").Range("J14").Value

 

[Blunder1]

lovely, thank you again