Thread: Sum cells
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
D D is offline
external usenet poster
 
Posts: 121
Default Sum cells

Thanks, very nice work, except now my other right click functions are
missing. i.e. cut,paste,etc. Any suggestions?


"Gord Dibben" wrote:

Copy/paste this code to your worksheet.

Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Range, Cancel As Boolean)
Set rng = Selection
MsgBox "Sum is: " & WorksheetFunction.Sum(rng)
Cancel = True
End Sub

Select some cells with left button then right-click to see the sum in a message
box.


Gord Dibben MS Excel MVP

On Sun, 27 Jan 2008 08:21:01 -0800, D wrote:

Thanks for the reply, i understand how this works as you explained, but what
I am looking for is a way to highlight cells and have the answer there,
instead of checking the status bar. Perhaps a right click and a popup would
be fine.


"Mike Rogers" wrote:

D

The status bar shows you Average, Count, Count Nums, Min, Max, & Sum. All
for the selected cells. Right click in the right end of the status bar and
select the function you want for your selected cells.

Mike Rogers

"D" wrote:

Is there a way to see the total when a number of cells are highlited? I know
about the status bar on the bottom, but it would be helpful if there were
someway to right click or have a balloon show the total.
thanks,