Como guardar un archivo de excel desde vb

Alguien podría ayudarme? Tengo un archivo de excel con una sheets("tabla") y otra Sheets("gráfico") y deseo guardar una copia del archivo pero que me permita cambiarle el nombre. Como hago esto?? He tratado pero aun no consigo buenos resultados con el siguiente código
Dim resp As String
Dim nuevoLibro As String
If Workbooks("Resultados.xlsm").Sheets("Tabla").Activate Then
 resp = MsgBox("¿Esta seguro que desea guardar esta información?", vbQuestion + vbYesNo, "Información Importante")
Select Case resp
Case Is = 6
 Workbooks("Resultados.xlsm").Sheets("Tabla").Activate
Range("A1:AA118").Select
 Selection.copy
 Workbooks.Add
 nuevoLibro = Workbooks.Item(2).Name
Windows(nuevoLibro).Activate
 ActiveSheet.Paste
 Workbooks("nuevoLibro").Activate
Sheets("Gráfico").Select
Sheets("Gráfico").copy after:=Sheets(Sheets.Count)
 ActiveWorkbook.Close SaveChanges:=True
 Workbooks("Resultados.xlsm").Activate
 Application.CutCopyMode = False
Range("D22").Select
Case Is = 7
End Select
End If