Macro que guarde hojas de un archivo excel como archivos independientes

Hola:

Necesito guardar las hojas de un archivo excel como archivos
independientes, cuyo nombre sea el nombre de la hoja. Hice la
siguiente macro pero falla en generar el archivo de la segunda hoja y
no he logrado detectar por qué. Supongo que no puede volver al archivo
original. Saludos Juan Carlos:

Sub Macro1()

For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Copy
Dim Nombre As String
Nombre = Sheets(i).Name
Dim Archivo
Archivo = ThisWorkbook.Path & "\" & Nombre
ActiveWorkbook.SaveAs Filename:=Archivo
ActiveWorkbook.Close
Workbooks("analisis_valores_06042009.xls").Activate
Next i
End Sub