Obrigado pessoal pelo retorno: Morel, o único problema é que tenho que preencher no box para cada célula selecionada, se tiver como fazer tudo em uma...

Eu dei uma olhada, mas, não tem esse comando, o que ocorre nessa parte do código: CreateFolders PastaData, "W:Mario" & PastaMes Active...

Obrigado Mauro, eu consegui alterando a linha de comando: "ThisWorkbook.SaveAs "W:Mario" & PastaMes & "" & PastaD...