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

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

--
Regards
Frank Kabel
Frankfurt, Germany

"Herman" schrieb im Newsbeitrag
m...
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

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
"Frank Kabel" wrote in message ...
Hi
before providing a solution: Why don't you use the information in the
taskbar. It does just exactly this?

--
Regards
Frank Kabel
Frankfurt, Germany

"Herman" schrieb im Newsbeitrag
m...
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

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 :-))


--
Regards
Frank Kabel
Frankfurt, Germany


Herman wrote:
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
"Frank Kabel" wrote in message
...
Hi
before providing a solution: Why don't you use the information in
the
taskbar. It does just exactly this?

--
Regards
Frank Kabel
Frankfurt, Germany

"Herman" schrieb im Newsbeitrag
m...
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