Hi Joe
Here is some code that may work for you.
Will need more details.
-----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B2") = "25000" Then
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlPrimary
End If
End Sub
--------------------
HTH
John

"Joe_Hunt via OfficeKB.com" <u45578@uwe wrote in message
news:a62e6a43be564@uwe...
Wow, those beat the fire out of what I came up with for a thermometer. Thanks!
That'll look great as a graphic. I've been experimenting with the sound but
with no success yet.

John wrote:
Hi Joe
You can start with this :
http://www.andypope.info/charts/thermometer.htm.
HTH
John
I want to do something that I've never done before, and I'm hoping someone
can help me with it. I'm helping a friend that's having a charity fundraiser
[quoted text clipped - 8 lines]
If it matters the goal is $200,000, and I'd like for the clapping and
graphic
to show at maybe every $25,000. I really appreciate the help.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/201004/1