Salvando planilha com nome da celula [Fechado]

- - Última resposta:  usuário anônimo - 6 nov 2013 às 11:55
Bom dia,

Estou usando esse código para salvar arquivo já com nome determinado por mim.

Sub Imagem1_Clique()

On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [a16].Value & ".xlsm"
MsgBox ("Planilha Salva Como : ") & [a16].Value & ".xlsm"
End Sub

mas o problema é o seguinte, eu queria que ele salvasse esse "novo" arquivo em xls sem macro, se eu altero o código de xlsm para xls, ao abrir, ele diz que a extensão é diferente, e me da uma opção de abrir, gostaria, de salvar mas que não tivesse mais o macro no outro arquivo que ele salvar e sim apenas os dados que eu coloquei.

alguém me ajuda?
Ver mais 

1 resposta

-1
Obrigado
Veja as dicas do Kioskea sobre o assunto, espero q encontre o q procura.

http://br.ccm.net/faq/excel-584