Nesse vídeo explico como criar várias pastas de uma única vez com nomes diferentes para cada pasta usando o windows e o excel.
Código para criar a fórmula para retirar acentos:
Function Acento(Caract As String)
Dim A As String
Dim B As String
Dim i As Integer
Const AccChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
Caract = Replace(Caract, A, B)
Next
Acento = Caract
End Function