#If VBA7 Then
  Private Declare PtrSafe Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
  Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
#Else
  Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
  Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
#End If


Sub Play1() 
Call mciExecute("open " + Chr$(34) + Range("AO1") + Chr$(34) + " alias _mysound_")
Call mciExecute("play _mysound_")
'Call mciExecute("play _mysound_ repeat")
End Sub

Sub Stop1()
Call mciExecute("close _mysound_")
End Sub

Public Sub test()
Dim rng1 As Range, c As Range
Set rng1 = ActiveSheet.UsedRange
Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.CreateTextFile(ThisWorkbook.Path & "\документ.txt", True)

For Each c In rng1
    If c.Value <> "" Then f1.WriteLine (c.Value)
Next
f1.Close
End Sub