Probabilmente gli esperti storceranno il naso ! Ecco il mio "prodotto"
partorito con l'aiuto dell'I.A.
Private Sub Workbook_Open()
Application.OnKey "^%y", "PlaySound" ' Associa la combinazione di
tasti CTRL+ALT+y alla subroutine PlaySound
End Sub
Sub PlaySound()
Application.Goto Reference:="R1C1" ' Aggiunta da me
If Not Intersect(ActiveSheet.Range("A1"), ActiveCell) Is Nothing
Then ' Controlla se la cella attiva è > 30
If ActiveSheet.Range("A1").Value > 30 Then ' Controlla se il
valore di A1 ? maggiore di 30
Beep ' Emetti un suono
End If
End If
End Sub