Que tal salvar sem apertar um botão?
Com este código você irá salvar sua planilha automaticamente na pasta que quiser e com o nome que desejar.
‘ 1 – Use este código quando a planilha já está salva no computador
ActiveWorkbook.Save
——————————————————-
‘2 – E para Salvar_Como, a planilha use este código abaixo . Definindo novo lugar e nome
dirCopia = "diretorio do arquivo" nomeCopia = "nome do arquivo" ActiveWorkbook.SaveAs Filename:= _ dirCopia + nomeCopia, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False
_____________________
Veja Também: Abrir Planilha