diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 0f178b373..00f23851d 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2155,6 +2155,7 @@ Namespace Extensiones
                 Dim worksheet = excel.Worksheets(0)
                 worksheet.Rows.InsertEmpty(0, TotalRowHeader)
                 Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+                If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error
                 celdasConTexto.Style.Font.Name = "Calibri Light"
 
                 Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)