Hello from Steved

Thankyou Dave it works as I require.

Cheers

"Dave Peterson" wrote:

One mo

MsgBox "SUM:" & Application.WorksheetFunction.Sum(Range("D:G"))

If that doesn't help, maybe your values aren't numbers--they could be text.

You may want to try David McRitchie's routine to clean the data:

http://www.mvps.org/dmcritchie/excel/join.htm#trimall
(look for "Sub Trimall()")

Steved wrote:

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.

--

Dave Peterson