Error HPageBreaks en VB6

[pana99]

Hola.
Estoy haciendo una aplicacion en VB6 utilizando HPageBreaks para los saltos de paginas
El problema es que si genero dos archivos seguidos se me genera el error 1004 en tiempo de ejecucion
Les dejo un ejemplo del codigo que estoy utilizando

Private Sub Command1_Click()
Dim objExcel As Object
Dim Archivo As String

Archivo = "C:\" & Replace(Replace(Replace(CStr(Time), ".", ""), " ", ""), ":", "") & ".xls"

' crear la referencia a excel
Set objExcel = CreateObject("Excel.application")

objExcel.Visible = True

With objExcel
.Workbooks.Add
.ActiveWorkbook.SaveAs Archivo
.Cells(1, 1) = "Hola Mundo"

For x = 3 To 30 Step 3
.Cells(x, 1) = x
.Cells(x, 1).Select
.ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next

.ActiveWorkbook.Save
Set objExcel = Nothing
End With
'Ejecuto de nuevo
Command1_Click


End Sub

Gracais