Use:

Code:
sub M_snb()
  workbooks.open "\\Btgo3015\centro_solucoes$\OUVIDORIA\COE\SAULO EDUARDO\Relatórios\Consolidado " & format(date,"dd-mm") & ".csv"
end sub