Excel Macro em Excel de salvar range selecionado com um nome em uma célula

[RégisAvelino]

Olá amigos,

Vi que aqui no ClubedoHardware temos duas macros em forum que eu tentei uni-las, e não sei como proceder para remover a caixa de salvar arquivo, uma destas macros usa a seleção realizada ex ( "a1:c22" )  e o que estou tentando realizar e não estou conseguindo, seria a remoção da caixa de salvar como, sabem como devo proceder?

 

Agradeço (y)

Segue o VBA modificado que tenho, está funcionando, e chega a salvar o arquivo, "mas após apertar Cancelar na caixa de salvar arquivo"
(aparece a caixa de salvar arquivos mas é necessário interagir) Gostaria de se possível, que este código não exibi-se a caixa de salvar arquivos

Sub Exportar()
'Update 20130916
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
Dim default As Integer
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Caminho, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
default = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set wb = Application.Workbooks.Add
Application.SheetsInNewWorkbook = default
WorkRng.Copy
wb.Worksheets(1).Paste
Caminho = Replace(WorkRng.Caminho & [A1].Value, ":", "-")
'Caminho = Replace(Caminho, "$", "")
'Caminho = Replace(Caminho, ".", "")
saveFile = Application.GetSaveAsFilename(InitialFileName:=Caminho & [A1].Value, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx")
wb.SaveAs Filename:=Caminho & [A1].Value & ".xlsx"
'Selection.Copy
'ActiveCell.Offset(1, 0).Range("A1").Select
'Application.CutCopyMode = False
wb.Close
'Application.DisplayAlerts = False
'Application.ScreenUpdating = False
End Sub

 

[Visitante]

Sugestão: esqueça esse código que não faz o que você quer e informe com exatidão o que você deseja fazer