golf4
08-01-2005, 07:51 PM
Hi, everyone -
Been too long since I've been back, but between work and other stuff going on, hard to get on....... SORRY!!!!!:dunno
I did have a quick question: our finance manager requested that I help him "jazz" up some of his spreadsheets by adding some wav files. I've inserted one that did work for a time, but no longer works. It's supposed to identify negative financial balances in the cells in Column C:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c2:c200")) Is Nothing Then
Exit Sub
Else
If Intersect(Target, Range("c2:c200")) < 0 Then
Application.ScreenUpdating = True
DoEvents
ActiveSheet.Shapes("object 1.wav").Select 'dan msg'
Selection.Verb Verb:=xlPrimary
End If
End If
End Sub
Can anyone see a problem within the code?
Thanks for the help.
Frank
Been too long since I've been back, but between work and other stuff going on, hard to get on....... SORRY!!!!!:dunno
I did have a quick question: our finance manager requested that I help him "jazz" up some of his spreadsheets by adding some wav files. I've inserted one that did work for a time, but no longer works. It's supposed to identify negative financial balances in the cells in Column C:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c2:c200")) Is Nothing Then
Exit Sub
Else
If Intersect(Target, Range("c2:c200")) < 0 Then
Application.ScreenUpdating = True
DoEvents
ActiveSheet.Shapes("object 1.wav").Select 'dan msg'
Selection.Verb Verb:=xlPrimary
End If
End If
End Sub
Can anyone see a problem within the code?
Thanks for the help.
Frank