INPC, actualización automatica

Antes que nada, felicitar a Enrique Morales por este archivo, Muy ingenioso
ramiro9 escribió:si se puede ramiro, puedes ver Modificar consulta en el menú Datos, submenú Obtener datos externos

Me voy a meter, realizé unos ajuste al código de enrique:
Sub Auto_open()
'Creada por Enrique Morales
Application.ScreenUpdating = False
[A1].QueryTable.Refresh BackgroundQuery:=False
[A2].EntireRow.Delete
[A1].End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1" ).EntireRow.Delete
ActiveCell.Offset(1, 0).Range("A1" ).EntireRow.Delete
Range([A1], ActiveCell.SpecialCells(xlLastCell)).AutoFormat _
Format:=xlRangeAutoFormatClassic3, Number:=True, Font _
:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
Fn% = Range([A1].CurrentRegion.Address).Rows.Count
Range("B2:M" & Fn).NumberFormat = "0.0000"
[A1].End(xlDown).Select
Application.Goto Reference:="R[+2]C"
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).EntireRow.Delete
Rows("2:2" ).Select
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
ActiveWorkbook.Names("inpc" ).Delete
Range([A1], ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWorkbook.Names.Add Name:="inpc" , RefersToR1C1:=Selection
Range("A2" ).Select
MsgBox "Datos actualizados de www.aportacionesfiscales.com/content/view/16/31 ", vbExclamation, "INPC"
End Sub
Sub auto_close()
ActiveWorkbook.Save
End Sub

Espero y así te sirva

GRACIAS ENRIQUE POR ESTA VALIOSA APORTACION

muchas gracias por compartirlo, esta muy bien, solo una pregunta, ya lo guarde pero para el proximo mes tengo q eliminar este y estara otro? gracias