diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index 0c06daa35..39f548632 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -98,7 +98,7 @@ Partial Class Compras_RepCxP
         If Not Page.IsPostBack Then
             SePersonalizo = 0
             CargaCombos()
-            CargaGvPersonalizarRaqngoColumnas()
+            CargaGvPersonalizarRangoColumnas()
             ProcesaRequest()
             CargaDatos()
 
@@ -1556,7 +1556,7 @@ Partial Class Compras_RepCxP
         UpBodyPersonalizar.Update()
     End Sub
 
-    Private Sub CargaGvPersonalizarRaqngoColumnas()
+    Private Sub CargaGvPersonalizarRangoColumnas()
         Dim ObjComp As New ClsCompras
         If ObjComp.GetRepCxPColumnas(UsuarioActual.CveEmpresa) Then
             GvPersonalizarRango.DataSource = ObjComp.DtResultados