copiar y pegar en valores una hoja

[linksunken]

buena tarde, solicito de su ayuda ya que genere este código, pero al agregarle la parte cells select se atora y si se lo quito corre bien el problema es que las hojas se quedan formuladas por eso necesito que se peguen en valores espero me puedan ayudar. saludos

---

[/hr]

Sub crear()

Dim n As Integer

Dim i As Integer

Dim a As Variant

n = 4

Sheets("PARAMETROS").Select

For i = 1 To 14

a = Cells(n + i, 1)

Range("I2").Select

ActiveCell.FormulaR1C1 = a

Sheets("RESUMEN").Copy

Cells.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

ChDir "C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO"

ActiveWorkbook.SaveAs Filename:="C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO\PRESUPUESTOS POR TDA" & a & "0707JUL.xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Next i

End Sub

- - - - - Mensaje combinado - - - - -

listo ya lo solucione me quedo asi....Sub crear()

Dim n As Integer

Dim i As Integer

Dim a As Variant

n = 4

Sheets("PARAMETROS").Select

For i = 1 To 14

Application.DisplayAlerts = False

a = Cells(n + i, 1)

Range("I2").Select

ActiveCell.FormulaR1C1 = a

Sheets("RESUMEN").Copy

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

ChDir "C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO"

ActiveWorkbook.SaveAs Filename:="C:\Users\oper15\Documents\uriel\logistica\REPORTE PRESUPUESTOS DE VENTAS\JULIO\PRESUPUESTOS POR TDA" & a & "0707JUL.xls", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Next i

End Sub