Public Function cAbc()

Dim f1, f2, f3, f4, f5, f6, f7, f8, f9, f10 As String
Dim f11, f12, f13, f14, f15, f16, f17, f18, f19, f20 As String
Dim f21, f22, f23, f24, f25, f26, f27 As String

f1 = "A"
f2 = "B"
f3 = "C"
f4 = "D"
f5 = "E"
f6 = "F"
f7 = "G"
f8 = "H"
f9 = "I"
f10 = "J"
f11 = "K"
f12 = "L"
f13 = "M"
f14 = "N"
f15 = "O"
f16 = "P"
f17 = "Q"
f18 = "R"
f19 = "S"
f20 = "T"
f21 = "U"
f22 = "V"
f23 = "W"
f24 = "X"
f25 = "Y"
f26 = "Z"

FD = f1 & "1"

If Range(f1 & "1").Text = "ID" Then Range(f1 & "1").Value = "ID"

If Range(f2 & "1").Text = "RUBRO" Then Range(f2 & "1").Value = "RUBRO"
If Range(f3 & "1").Text = "PROGRAMA" Then Range(f3 & "1").Value = "PROGRAMA"
If Range(f4 & "1").Text = "PAQUETES DE ASIGNACION" Then Range(f4 & "1").Value =
"PAQUETES_DE_ASIGNACION"
If Range(f5 & "1").Text = "FOLIO DE SEGUIMIENTO TELMEX (SICETH)" Then Range(f5 &
"1").Value = "FOLIO_DE_SEG_TMX_SICETH"
If Range(f6 & "1").Text = "ID SEGUIMIENTO TMX" Then Range(f6 & "1").Value =
"ID_SEG_TMX"
If Range(f7 & "1").Text = "FECHA DE ASIGNACIÓN (TMX)" Then Range(f7 & "1").Value =
"ASIG_TMX"
If Range(f8 & "1").Text = "FECHA REACTIVACION (TMX)" Then Range(f8 & "1").Value =
"REACTIV_TMX"
If Range(f9 & "1").Text = "GERENCIA" Then Range(f9 & "1").Value = "GERENCIA"
If Range(f10 & "1").Text = "OFICINA" Then Range(f10 & "1").Value = "OFICINA"

If Range(f11 & "1").Text = "DIRECCION" Then Range(f11 & "1").Value = "DIRECCION"

If Range(f12 & "1").Text = "REGION" Then Range(f12 & "1").Value = "REGION"
If Range(f13 & "1").Text = "AREA" Then Range(f13 & "1").Value = "AREA"
If Range(f14 & "1").Text = "NCO" Then Range(f14 & "1").Value = "NCO"
If Range(f15 & "1").Text = "NOMBRE NCO" Then Range(f15 & "1").Value = "N_NCO"
If Range(f16 & "1").Text = "CTL" Then Range(f16 & "1").Value = "CTL"
If Range(f17 & "1").Text = "NOMBRE CTL" Then Range(f17 & "1").Value = "N_CTL"
If Range(f18 & "1").Text = "DISTRITO" Then Range(f18 & "1").Value = "DISTRITO"
If Range(f19 & "1").Text = "NOMBRE DEL DESARROLLO/CLIENTE" Then Range(f19 &
"1").Value = "N_DRLLO_CTE"
If Range(f20 & "1").Text = "TECNOLOGIA/AFECTACION" Then Range(f20 & "1").Value =
"TECN_AFECT"

If Range(f21 & "1").Text = "TIPO DE RED" Then Range(f21 & "1").Value = "TIP_RED"
If Range(f22 & "1").Text = "VIVIENDAS" Then Range(f22 & "1").Value = "VIVIENDAS"
If Range(f23 & "1").Text = "CLIENTES BASE ORIGINAL" Then Range(f23 & "1").Value =
"CTES_BASE_ORIG"
If Range(f24 & "1").Text = "CLIENTES CCR" Then Range(f24 & "1").Value = "CTES_CCR"
If Range(f25 & "1").Text = "GANANCIA INFINITUM / ACERA" Then Range(f25 & "1").Value
= "GAN_INFINITUM_ACERA"
If Range(f26 & "1").Text = "COORDINADOR" Then Range(f26 & "1").Value =
"COORDINADOR"

If Range(f1 & f1 & "1").Text = "JEFE DE GRUPO" Then Range(f1 & f1 & "1").Value =
"JEFE_GPO"
If Range(f1 & f2 & "1").Text = "GSP / PROVEEDOR" Then Range(f1 & f2 & "1").Value =
"GSP_PROV"
If Range(f1 & f3 & "1").Text = "RESPONSABLE" Then Range(f1 & f3 & "1").Value =
"RESPONSABLE"
If Range(f1 & f4 & "1").Text = "FECHA ASIGNACION COORDINADOR" Then Range(f1 & f4 &
"1").Value = "ASIG_COORD"
If Range(f1 & f5 & "1").Text = "FECHA COMPROMISO GSP" Then Range(f1 & f5 &
"1").Value = "F_COMP_GSP"
If Range(f1 & f6 & "1").Text = "FECHA COMPROMISO TMX" Then Range(f1 & f6 &
"1").Value = "F_COMP_TMX"
If Range(f1 & f7 & "1").Text = "FECHA INICIO GSP" Then Range(f1 & f7 & "1").Value =
"F_INI_GSP"
If Range(f1 & f8 & "1").Text = "AVANCE PPAL" Then Range(f1 & f8 & "1").Value =
"AVANCE_PPAL"
If Range(f1 & f9 & "1").Text = "% PPAL" Then Range(f1 & f9 & "1").Value = "%_PPAL"
If Range(f1 & f10 & "1").Text = "AVANCE SECUNDARIO" Then Range(f1 & f10 &
"1").Value = "AVANCE_SEC"

If Range(f1 & f11 & "1").Text = "% SEC" Then Range(f1 & f11 & "1").Value = "%_SEC"
If Range(f1 & f12 & "1").Text = "% TOTAL" Then Range(f1 & f12 & "1").Value =
"%_TOTAL"
If Range(f1 & f13 & "1").Text = "STATUS GSP" Then Range(f1 & f13 & "1").Value =
"STATUS_GSP"
If Range(f1 & f14 & "1").Text = "STATUS TMX" Then Range(f1 & f14 & "1").Value =
"STATUS_TMX"
If Range(f1 & f15 & "1").Text = "OBS GRAL" Then Range(f1 & f15 & "1").Value =
"OBS_GRAL"
If Range(f1 & f16 & "1").Text = "NUMERO DE PROYECTOS" Then Range(f1 & f16 &
"1").Value = "NUM_PROY"
If Range(f1 & f17 & "1").Text = "MES TMX" Then Range(f1 & f17 & "1").Value =
"MES_TMX"
If Range(f1 & f18 & "1").Text = "AÑO TMX" Then Range(f1 & f18 & "1").Value =
"AÑO_TMX"
If Range(f1 & f19 & "1").Text = "MES GSP" Then Range(f1 & f19 & "1").Value =
"MES_GSP"
If Range(f1 & f20 & "1").Text = "AÑO GSP" Then Range(f1 & f20 & "1").Value =
"AÑO_GSP"

If Range(f1 & f21 & "1").Text = "FECHA DE ENTREGA REAL" Then Range(f1 & f21 &
"1").Value = "F_ENT_REAL"
If Range(f1 & f22 & "1").Text = "STATUS ENTREGABLES" Then Range(f1 & f22 &
"1").Value = "STATUS_ENTRE"
If Range(f1 & f23 & "1").Text = "FOLIO FC PPAL" Then Range(f1 & f23 & "1").Value =
"FOLIO_FC_PPAL"
If Range(f1 & f24 & "1").Text = "FOLIO FC SEC" Then Range(f1 & f24 & "1").Value =
"FOLIO_FC_SEC"
If Range(f1 & f25 & "1").Text = "FOLIO FC CAN" Then Range(f1 & f25 & "1").Value =
"FOLIO_FC_CAN"
If Range(f1 & f26 & "1").Text = "FOLIO FC DRP" Then Range(f1 & f26 & "1").Value =
"FOLIO_FC_DRP"

If Range(f2 & f1 & "1").Text = "FOLIO FC DESM SEC" Then Range(f2 & f1 & "1").Value
= "FOLIO_FC_DESM_SEC"
If Range(f2 & f2 & "1").Text = "STATUS FC PPAL" Then Range(f2 & f2 & "1").Value =
"STATUS_FC_PPAL"
If Range(f2 & f3 & "1").Text = "STATUS FC SEC" Then Range(f2 & f3 & "1").Value =
"STATUS_FC_SEC"
If Range(f2 & f4 & "1").Text = "STATUS FC CAN" Then Range(f2 & f4 & "1").Value =
"STATUS_FC_CAN"
If Range(f2 & f5 & "1").Text = "STATUS FC DRP" Then Range(f2 & f5 & "1").Value =
"STATUS_FC_DRP"
If Range(f2 & f6 & "1").Text = "STATUS FC DESM SEC" Then Range(f2 & f6 & "1").Value
= "STATUS_FC_DESM_SEC"
If Range(f2 & f7 & "1").Text = "FECHA FVA FC PPAL" Then Range(f2 & f7 & "1").Value
= "FECHA_FVA_FC_PPAL"
If Range(f2 & f8 & "1").Text = "FECHA FVA FC SEC" Then Range(f2 & f8 & "1").Value
= "FECHA_FVA_FC_SEC"
If Range(f2 & f9 & "1").Text = "FECHA FVA FC CAN" Then Range(f2 & f9 & "1").Value
= "FECHA_FVA_FC_CAN"
If Range(f2 & f10 & "1").Text = "FECHA ENTREGABLES" Then Range(f2 & f10 &
"1").Value = "FECHA_ENTREGABLES"

If Range(f2 & f11 & "1").Text = "MONTO PPAL FO [PFO]" Then Range(f2 & f11 &
"1").Value = "MONTO_PPAL_FO_PFO"
If Range(f2 & f12 & "1").Text = "MONTO SEC FO [SFO]" Then Range(f2 & f12 &
"1").Value = "MONTO_SEC_FO_SFO"
If Range(f2 & f13 & "1").Text = "MONTO INV. VIVIENDAS COMERCIOS [IVC]" Then
Range(f2 & f13 & "1").Value = "MONTO_INV_VIVIENDAS_COMERCIOS_IVC"
If Range(f2 & f14 & "1").Text = "MONTO TBA [TBA]" Then Range(f2 & f14 & "1").Value
= "MONTO_TBA_TBA"
If Range(f2 & f15 & "1").Text = "MONTO PROYECTO DE PRINCIPAL [PRP]" Then Range(f2 &
f15 & "1").Value = "MONTO_PROYECTO_DE_PRINCIPAL_PRP"
If Range(f2 & f16 & "1").Text = "MONTO ESTUDIO DE CONJUNTO [ESC]" Then Range(f2 &
f16 & "1").Value = "MONTO_ESTUDIO_DE_CONJUNTO_ESC"
If Range(f2 & f17 & "1").Text = "MONTO PROYECTO DE SECUNDARIO [PRS]" Then Range(f2
& f17 & "1").Value = "MONTO_PROYECTO_DE_SECUNDARIO_PRS"
If Range(f2 & f18 & "1").Text = "MONTO INVENTARIO COBRE [INV]" Then Range(f2 & f18
& "1").Value = "MONTO_INVENTARIO_COBRE_INV"
If Range(f2 & f19 & "1").Text = "MONTO CANALIZACION [PCA]" Then Range(f2 & f19 &
"1").Value = "MONTO_CANALIZACION_PCA"
If Range(f2 & f20 & "1").Text = "MONTO RED ACOMETIDA [AFO/ARS]" Then Range(f2 & f20
& "1").Value = "MONTO_RED_ACOMETIDA_AFO_ARS"

If Range(f2 & f21 & "1").Text = "MONTO OBRA PUBLICA / NIS [POP]" Then Range(f2 &
f21 & "1").Value = "MONTO_OBRA_PUBLICA_NIS_POP"
If Range(f2 & f22 & "1").Text = "MONTO ANILLO [AFO]" Then Range(f2 & f22 &
"1").Value = "MONTO_ANILLO_AFO"
If Range(f2 & f23 & "1").Text = "MONTO DESMONTAJE RED PRAL[DRP]" Then Range(f2 &
f23 & "1").Value = "MONTO_DESMONTAJE_RED_PRAL_DRP"
If Range(f2 & f24 & "1").Text = "MONTO DESMONTAJE SEC" Then Range(f2 & f24 &
"1").Value = "MONTO_DESMONTAJE_SEC"
If Range(f2 & f25 & "1").Text = "MONTO PROYECTO TRONCAL DE FIBRA OPTICA [PFT]" Then
Range(f2 & f25 & "1").Value = "MONTO_PROYECTO_TRONCAL_DE_FIBRA_OPTICA_PFT"
If Range(f2 & f26 & "1").Text = "MONTO TOTAL" Then Range(f2 & f26 & "1").Value =
"MONTO_TOTAL"

If Range(f3 & f1 & "1").Text = "FECHA ENTREGA FACTURACION" Then Range(f3 & f1 &
"1").Value = "FECHA_ENTREGA_FACTURACION"
If Range(f3 & f2 & "1").Text = "STATUS FACTURACION" Then Range(f3 & f2 & "1").Value
= "STATUS_FACTURACION"
If Range(f3 & f3 & "1").Text = "$P50 GLOBAL" Then Range(f3 & f3 & "1").Value =
"$P50_GLOBAL"
If Range(f3 & f4 & "1").Text = "$RFE,RFA,P45,PC GLOBAL" Then Range(f3 & f4 &
"1").Value = "$RFE_RFA_P45_PC_GLOBAL"
If Range(f3 & f5 & "1").Text = "FECHA REVISION (ICRA)" Then Range(f3 & f5 &
"1").Value = "FECHA_REVISION_ICRA"
If Range(f3 & f6 & "1").Text = "NUMERO DE REVISION" Then Range(f3 & f6 & "1").Value
= "NUMERO_DE_REVISION"
If Range(f3 & f7 & "1").Text = "CRUCES" Then Range(f3 & f7 & "1").Value = "CRUCES"
If Range(f3 & f8 & "1").Text = "CRUCE DE ACUMULADO" Then Range(f3 & f8 & "1").Value
= "CRUCE_DE_ACUMULADO"
If Range(f3 & f9 & "1").Text = "47" Then Range(f3 & f9 & "1").Value = "47"
If Range(f3 & f10 & "1").Text = "CANTIDAD DISTRITOS" Then Range(f3 & f10 &
"1").Value = "CANTIDAD_DISTRITOS"

If Range(f3 & f11 & "1").Text = "ID" Then Range(f1 & f11 & "1").Value = "ID2"

Range("A1").Select

MsgBox "Cabeceras concluidas, inicia la importación."

End Function