Edivan esta para criar nova pasta funcionou só que ela gera uma pasta vazia tenho duas opções que seria gerar na pasta atual de trabalho atraves de um...

Dim I As Integer I = Sheets.Count Sheets("bs").Copy after:=Sheets(I) ActiveSheet.name = "bs" & I + 1 Utilizo...