diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index bfecf0ae1..399dff620 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -2426,7 +2426,7 @@ Partial Class Inicio
             ElseIf Opcion = 5 Then
 #Region "GERENTE TECNICO"
                 Dim CirugiasAsistidas As Integer
-                Dim MontoCirugias, TicketPromedio As Decimal
+                Dim TicketPromedio As Decimal
                 dtt = ds.Tables(0)
                 If dtt IsNot Nothing Then
                     CirugiasAsistidas = dtt.FiltroPrimeroValor("CirugiasAsistidas").ToEntero