Olá! bikeski.
que é o índice de suas variáveis? Números como cordas? Nomes do mês? Como começ enchidos? Para encontrar o dia útil por uma data, você pode usar-se
wkDay = Application.WorksheetFunction.Text (data, “dddd”)
Neste exemplo, a data é a data atual, assim que você precisaria de substitui-lo com uma data no formato de data válido.
Em todo caso, você definitivamente não precisa sete níveis de se - Elseif.
elogios, teylyn