Sub sound()
    Dim ole As OLEObjects

    Set ole = ActiveSheet.OLEObjects.Add(Filename:=("E:Chrome" & voice), _
            Link:=Fasle, DisplayAsIcon:=True, IconFileName:="sndrec32.exe", _
            IconIndex:="0", IconLabel:="sound").Select