Nao testei mas ve se funciona.....

Sub Salvar()

Dim renomeando As String

'Fonte
'fonte = "C:UsuariosfabiospDocumentosCopiando para outra pasta.xlsx"

'Destino
'destino = "C:UsariosfabiospDocumentosNovos Relatorios"

'Novo nome da plan
renomeando = Name = InputBox("Digite o nome do novo relatorio")



    ChDir "C:UsuariosfabiospDocumentosCopiando para outra pasta.xlsx"
    ActiveWorkbook.SaveAs Filename:= _
 _
        "C:UsariosfabiospDocumentosNovos Relatorios" & renomeando, FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Range("A1").Select
End Sub

Mprudencio bom dia,

Testei mas não funcionou.
Analisando novamente o código original descobri o erro utilizando o depurador com a tecla F8 .
Estou postando aqui para caso alguém esteja com o mesmo problema utilizar.

Sub copiando_outra_pasta()
Dim renomeando As String
renomeando = InputBox("Digite o nome do novo relatorio")

On Error Resume Next
  ActiveWorkbook.SaveAs Filename:="C:UsuariosfabiospDocumentosNovos Relatorios" & renomeando, FileFormat:=52
    
    If Err.Number <> 0 Then
        MsgBox "Erro na Copia: Ja existe um arquivo com o nome de " & renomeando
    End If
On Error GoTo 0
ActiveWorkbook.Save

End Sub