Jim -

How about something like this:

dStart = Now
' do your calcs here
If Now - dStart TimeValue("0:00:30") Then
Beep
End If

If you want to get fancy, John Walkenbach explains how to play a sound
file instead of that boring beep:

http://www.j-walk.com/ss/excel/tips/tip59.htm

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

wrote:

I have spreadsheets that sometimes take a long time to calc. Is there
a way to make Excel beep or make some sort of sound indicating that the
calculation is done, and I can work on the spreadsheet again? I guess,
ideally, it would be cool if this end of calcing sound didn't come up
every single time excel calculates, but perhaps if the calc time
exceeds 30 seconds.

Thanks, Jim