Boa tarde osvaldomp Encontrei um código e fui adaptando para o que eu precisava e deu certo. Sub CriarArquivosXLSM() Dim listaNomes As Range Dim nome As Variant Dim arquivoOrigem As String Dim pastaDestino As String Dim arquivoDestino As String ' Defina a lista de nomes em uma coluna do Excel Set li...