Error en Aplication.Ontime

Estimados todos,

Tengo el siguiente código en ThisWorkbook

Private Sub Workbook_Open()
Dim Fila As Byte
Dim Dias As Variant

Dias = Array("DOM", "LUN", "MAR", "MIE", "JUE", "VIE", "SAB")

NomDias = Dias(Weekday(Date, vbMonday))

With Worksheets(NomDias)
.ScrollArea = "A1:D100"
.Columns("E:IV").Hidden = True
.Rows("101:65536").Hidden = True
End With

With Worksheets(NomDias)
For Fila = 2 To 31
Application.OnTime .Range("a" & Fila), "'WAVs_programados""" & Fila
& """" & NomDias & " '"
Next
End With
End Sub

y también tengo un MODULO

Option Explicit

Public Declare Function TocarMusicaWAV Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal Archivo As String, ByVal Estado As Long) As Long

Sub TocarMusica()
Dim EsteArchivo As String

'TocarMusicaWAV EsteArchivo, 0
'MsgBox "La macro estuvo detenida ""mientras""la música ""tocaba""."
TocarMusicaWAV EsteArchivo, 1
MsgBox "La música está tocando, y la macro ... ""ejecutando"
End Sub

Sub WAVs_programados(ByVal Fila As Byte, NomDias As String)
Dim EsteArchivo As String
EsteArchivo = Worksheets(NomDias).Range("b" & Fila)
TocarMusicaWAV EsteArchivo, 1
MsgBox "La música está tocando, y la macro ... ""ejecutando"
End Sub

Me marca error, pero ya he intentado corregirlo, y creo que mi error está
en los parámteros, pero no le hallo, les agredecería mil si me pueden ayudar.

Si se activa el procedimiento a la hora que indico pero marca error, en los
parámetros.

Saludos,

Lyna