Salvar arquivo com valor de celula - Excel MACRO

[Zameci]

Sou novo em programação e estou precisando da ajuda de vocês.

Preciso de uma macro para "salvar como" usando uma base de dados do excel por exemplo:

eu tenho uma lista nas células entre (a7) até (a82) e preciso gerar um novo arquivo para cada célula desta com os nomes que estão dentro de cada uma respectivamente.

Ex. na célula A1 eu tenho o nome "001-12-MD095A" e eu preciso que o arquivo que vou salvar como tenha este mesmo nome.

na célula A2 eu tenho o nome "002-12-MD096A" e eu preciso que o arquivo que vou salvar como tenha este mesmo nome.

[Thiago.cs2]

Zameci,

Use o código abaixo:

Sub SalvaComo()
    
    Range("A7").Activate
    
Do While ActiveCell <> ""
    ActiveWorkbook.SaveAs ActiveCell, FileFormat:=52
    ActiveCell.Offset(1, 0).Activate
Loop

End Sub