Memoria insuficiente en Visual Basic
Solicito su amable ayuda por favor, tengo un proyecto en excel con macros el cual le puse codigós para que me oculte y muestra Botones de comando (actinvex) según el valor de algunas celdas, ya puse las condicionales con macros, el problema es que cuando abro el archivo y corro la primera macro me arroja "error 28 Espacio de pila insuficiente" después de darle Finalizar (me aparece congelado botón de Depurar y continuar) me corre a la perfección todo el archivo ya sin el mensaje de error 28, solo lo hace cada vez que comienzo a trabajar, ¿saben qué estaré haciendo mal? A continuación mis códigos empleados:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Aparecer boton de GENERAR INTERNO
Application.ScreenUpdating = False
If Range("m12").Value <> "3" Then
ActiveSheet.Shapes.Range(Array("Generar")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("Generar")).Visible = True
End If
'Aparecer boton de GENERAR EXTERNO
Application.ScreenUpdating = False
If Range("m13").Value <> "3" Then
ActiveSheet.Shapes.Range(Array("CommandButton3")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("CommandButton3")).Visible = True
End If
'Aparecer boton de VISTA PREVIA e IMPRIMIR y Excel de GENERAR INTERNO
Application.ScreenUpdating = False
If Range("R14").Value <> "69" Then
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = False
ActiveSheet.Shapes.Range(Array("CommandButton5")).Visible = False
ActiveSheet.Shapes.Range(Array("CommandButton4")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = True
ActiveSheet.Shapes.Range(Array("CommandButton5")).Visible = True
ActiveSheet.Shapes.Range(Array("CommandButton4")).Visible = True
End If
'Aparecer boton de VISTA PREVIA e IMPRIMIR y Excel de GENERAR EXTERNO
Application.ScreenUpdating = False
If Range("R15").Value <> "70" Then
ActiveSheet.Shapes.Range(Array("CommandButton6")).Visible = False
ActiveSheet.Shapes.Range(Array("CommandButton7")).Visible = False
ActiveSheet.Shapes.Range(Array("CommandButton2")).Visible = False
Else
ActiveSheet.Shapes.Range(Array("CommandButton6")).Visible = True
ActiveSheet.Shapes.Range(Array("CommandButton7")).Visible = True
ActiveSheet.Shapes.Range(Array("CommandButton2")).Visible = True
End If
'Aparecer boton de 1 PASO ATRAS
Application.ScreenUpdating = False
If Range("R16").Value <> "DESAPARECER" Then
ActiveSheet.Shapes.Range(Array("CommandButton8")).Visible = True
Else
ActiveSheet.Shapes.Range(Array("CommandButton8")).Visible = False
End If
End Sub
