Macros copiar solo la hoja activa de entre tantas a una carpeta en disco d

Te anexo la macro. Guarda la hoja activa como archivo de excel y le poner nombre el mismo que tiene la hoja

Sub Macro1()
' Por Dante Amor
' Guarda hoja activa como arhivo de excel
'
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    nombre = ActiveSheet.Name
    ruta = "D:\"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=ruta & nombre & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
    MsgBox "Hoja activa guardada"
End Sub

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda