Automatic Summing of Adjacent Columns Based On Manually Entered Range

[moonwater]

Hey All, I was wondering if I some help trying to make my life easier.

I'm trying to calculate very roughly some wastage on a production run but the definition of a production run can be a bit loose and isn't defined by the product code for example. So if I know that Product Codes AAA and BBB share the same widgets but are just packed in different packaging.

I would like to be able to just manually select one row of cells which might seem completely arbitrary, for example Rows 5-8, and for the cells in Columns C, D and E to be automatically summed for me.

Is there any way for that to be done?

 

[footoo]

Put the macro below in the sheet module.
Where do you want to put the totals? The code below shows totals in a message box.
You need to select complete and contiguous rows.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Columns.Count = Columns.Count Then
    With WorksheetFunction
        MsgBox "Selection Totals :" & Chr(13) & Chr(13) _
        & "Column C " & .Sum(Intersect(Selection, [C:C])) & Chr(13) _
        & "Column D " & .Sum(Intersect(Selection, [D:D])) & Chr(13) _
        & "Column E " & .Sum(Intersect(Selection, [E:E])) & Chr(13)
    End With
End If
End Sub