Public Function PROC_VAZOES(dia, bacia, indice_coluna)

Dim path As String
path = "'Y:File Path[Relatorio_previsao_diaria_" & Application.Text(dia, "DD") & "_" & Application.Text(dia, "MM") & "_2019_para_" & Application.Text(dia, "DD") & "_" & Application.Text(dia, "MM") & "_2019.xls]Diária_4'!$B$1:$I$173"

PROC_VAZOES = Application.VLookup(bacia, path, indice_coluna, False)

End Function