VBA Excel - Criando novas Planilhas a partir das pastas existentes em uma planilha.

Como criar várias planilhas diferentes a partir das pastas dentro da minha planilha?

Sub SavePlansAtWorkBook()
    Dim nPath As String
    Dim nExt as String
    Dim nWS As Worksheet

    Let nPath = "P:\A&A\"
    Let nExt = ".xls"

    For Each nWS In ThisWorkbook.Worksheets
        nWS.Copy

        ActiveWorkbook.SaveAs _
        Filename:=nPath & nWS.Name & nExt

        ActiveWindow.Close
    Next nWS
End Sub

André Luiz Bernardes

bernardess@gmail.com
inanyplace
bernardess@gmail.com