Boa arde!!

Eu acho que você deveria postar sua rotina.

Sub EuNaoEntendi()
Dim NewName As String
Dim Sh As Worksheet
NewName = ActiveSheet.Name
DuplicateSearch:
For Each Sh In Workbooks("Book1.xlsm").Worksheets
If UCase(Sh.Name) = UCase(NewName) Then
NewName = InputBox(NewName & " Já existe.**Digite o novo nome.", "Novo nome")
GoTo DuplicateSearch
End If
Next Sh
ActiveSheet.Copy Workbooks("Book1.xlsm").Worksheets(1)
ActiveSheet.Name = NewName
End Sub

Att

Olá Caro Colega alexandrevba, tudo bem?

Anexo segue um modelo bem simples da minha planilha.

A minha pergunta e a seguinte, toda vez que eu clicar em 'SALVAR COMO' (o botão da minha planilha), o excel abre um novo arquivo, gostaria de saber se tem como ao inves de abrir um novo arquivo ele mover para o mesmo que eu abri.

Porque imagine se eu clicar 10 x no botão salvar como, o excel vai me criar 10 arquivos, tem como inves de criar 10 arquivos ele inserir no arquivo que já esta aberto? Ou ele me dar a opção de escolher o lugar?

Obrigada pela atenção.

Dias

Boa tarde!!

Eu ainda não baixei seu arquivo...

Tente isso

Sub CopiarSalvarAleVBA()
'Copia de uma guia de um workbook para outro workbook e salva
'Caso queira copiar novamente não precisará salvar outro workbook
Dim wb As Workbook
Worksheets("Teste").Copy 'Copia da guia Teste do livro ativo
Set wb = ActiveWorkbook
wb.SaveAs "Delete.xls" ' Salva com o nome de Delete
wb.Close

End Sub

Alexandrevba boa Tarde

Então o seu comando é igual + ou - o meu, se eu ficar clicando para salvar ele pedi para substituir e não e isso que eu quero, eu quero se tiver que clicar 30 vezes ele ir abrindo varias guias uma ao lado da outra no mesmo arquivo.
Dá para fazer desta forma?

Bom dia!!

Certifique se que o arquivo foi salvo.

Depois faça os testes.

Sub CopiarSalvarAleVBA()
Dim nB As Workbook, sht As Worksheet
Application.ScreenUpdating = False
Set sht = ActiveSheet
Set nB = Workbooks.Open("C:UsersalexandreDownloadsteste.xlsx")
sht.Copy after:=nB.Sheets(nB.Sheets.Count)
nB.Close True
Set nB = Nothing: Set sht = Nothing
Application.ScreenUpdating = True

End Sub

Att