Hello Gary from Steved

If I sum each Col and the sum the 4 Columns I get 1462003

If I use Application.WorksheetFunction.Sum(Range("D1:G" & r)) I get 1208502.

Is there something I'm doing.

Thankyou.

"Gary Keramidas" wrote:

just change the 2nd D to a G

Application.WorksheetFunction.Sum(Range("D1:G" & r))


--


Gary


"Steved" wrote in message
...
Hello from Steved

Below will sum Col D How would I get it to sum D:G please

Sub AddSum()
r = Range("D65536").End(xlUp)
MsgBox "SUM:" & _
Application.WorksheetFunction.Sum(Range("D1:D" & r))

End Sub

Thankyou.