Display sum of selection with SelectionChange procedure

H

Herman

Hello,
I am trying to compose a Worksheet_SelectionChange Sub that will pop
up a display as soon as two or more cells (ALSO NON-CONTIGUOUS ONES
!!!) of a certain column are selected. This display should show the
sum of the selection and update it as more cells are selected.
I have tried this :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count < 2 Then Exit Sub
If Target.Column <> 10 Then Exit Sub
MsgBox Application.Sum(Selection)
End Sub

which works fine but the ok button prevents selecting non-adjacent
cells unless you click it.
What I want is a display that continually updates untill I dismiss it.

Can you help me here?

And another question : how can I EDIT the contents of a message box?
I want the sum shown in 0.000,00 format, font size 12 and bold.

Thank you very much
Herman
 
F

Frank Kabel

Hi
before providing a solution: Why don't you use the information in the
taskbar. It does just exactly this?
 
H

Herman

Oh! Frank, excuse me for this stupid question! I'm really embarassed.
Can you believe that I'v been a very intensive XL user for the last
five years and never noticed that little thing in the task bar.
Thanks anyway for your attention.
By the way, how about this EDITING a message box; can it be done ?
Herman
 
F

Frank Kabel

Hi
what do you mean with Editing a messagebox?

Frank
P.S.: You also have different function in this taskbar. right-click
with your mouse on this filed :))
 
Top