Como guardar hojas de un libro activo (Concluida)

Hola elsa, muchísimas gracias por los datos emitidos por correo, con tu ayuda pude terminar mi macro y quiero mostrarla y dejarla plasmada para que algún amigo que la necesite pueda obtenerla.
Sub AUTO_CLOSE()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Mybook = ActiveWorkbook.Name
MyPath = ActiveWorkbook.Path
'Designa la ubicación donde seran guardados los archivos
If MyPath = "" Then MyPath = "E:\Mis Documentos\"
'Comienza el ciclo desde la hoja6 del libro activo
For contando = 6 To Sheets.Count
'Aqui guarda esta hoja6 con el nombre tomado de la celda "I9" en la carpeta de respaldos
If contando = 6 Then
ThisWorkbook.Worksheets("Libro de Compra").Copy
Worksheets("Libro de Compra").Activate
Mysheet = Range("i9").Value
ActiveWorkbook.Close SaveChanges:=True, Filename:=MyPath + "\Respaldos\" + Mysheet
Else
'Aqui termina de guardar el resto de las hojas pero con el nombre que tiene cada una en la pestaña
Workbooks(Mybook).Sheets(contando).Copy
ActiveWorkbook.Close SaveChanges:=True, Filename:=MyPath + "\Respaldos\" + activeSheet.Name
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'Hace un respaldo del archivo completo
ActiveWorkbook.SaveCopyAs "E:Respaldofacturas.XLS"
'Guarda y Cierra el libro
Workbooks("FACTURAS.XLS").Close SaveChanges:=True
End Sub
Saludos