play object (audio file) when active cell is ""

[AlexPi]

Hi All,

I am having trouble getting this to work. I am close, but probably missing something. I am trying to play a wav file when the active cell is U18. When the user selects this cell, I want the audio file to play. When I use the code below, it works when I have the cell selected and run the macro but I do not want to have to run the macro. I'd like to it run automatically whenever the cell is selected.

Sub play_audio()



   If ActiveCell = Range("U18") Then
          ActiveSheet.Shapes("Object 39").Select
    Selection.Verb Verb:=xlPrimary
    End If
End Sub

Thank you!

 

[Domenic]

You can use the SelectionChange event handler for your worksheet. Right-click the sheet tab for your sheet, select View Code, and place the following code in the code module for the sheet...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$U$18" Then Exit Sub
    Me.Shapes("Object 39").Verb Verb:=xlPrimary
End Sub

Note that Target refers to the selected cell, and the keyword Me refers to the sheet.

Hope this helps!

 

[AlexPi]

Getting close! I now get a "runtime error 438 object doesn't support this property or method" on the line below. Any ideas?

[COLOR=#333333]Me.Shapes("Object 39").Verb Verb:=xlPrimary[/COLOR]

 

[Domenic]

I think we need to refer to the OLEFormat property of the Shapes object...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$U$18" Then Exit Sub
    Me.Shapes("Object 39")[COLOR=#ff0000].OLEFormat[/COLOR].Verb Verb:=xlPrimary
End Sub

 

[AlexPi]

I think we need to refer to the OLEFormat property of the Shapes object...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$U$18" Then Exit Sub
    Me.Shapes("Object 39")[COLOR=#ff0000].OLEFormat[/COLOR].Verb Verb:=xlPrimary
End Sub

That did it! Thank you!