No se ha definido Sub, Function o Property (Error 35)

Es una tabla que segun el dato que pongas en la llamada te suma 1 columna
más y
meto el producto de las filas y las columanas
luego en la ventana de inmediato muestra el contenido de la tabla

El "En sub" Esta y al realizar un sub sencillo en el inmediato tampoco
funciona
-
En la Ayuda
No se ha definido Sub, Function o Property (Error 35)
-
Option Compare Database
Option Explicit
Option Base 1

Private Sub SumandoFilas(NColumnasI As Long)

On Error GoTo SumandoFilas_Error
Dim NFilas As Long
Dim NcolumnasF As Long
NFilas = 2 ^ NColumnas
Dim Matriz() As Variant
NcolumnasF = NColumnasI + 1
ReDim Preserve Matriz(NFilas, NcolumnasF)
Dim F As Long: Dim C As Long
For F = 1 To NFilas 'Inicializar
For C = 1 To NcolumnasF
Matriz(F, C) = F * C
Next C
Next F
''MOSTRAR DATOS
Debug.Print "Fila x Columna = Total"
For F = 1 To NFilas 'inicializar
For C = 1 To NColumnas
Debug.Print F & " x " & C & " = " & Matriz(F, C)
Next C
Next F

On Error GoTo 0
Exit Sub

SumandoFilas_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
SumandoFilas of

Módulo Módulo1"

End Sub
-
Ventana Inmediato
? SumandoFilas(3)
-
GRACIAS A TOD@S



-
-
Estoy utilizando la versión gratuita de SPAMfighter para usuarios privados.
Ha eliminado 895 correos spam hasta la fecha.
Los abonados no tienen este mensaje en sus correos.
¡Pruebe SPAMfighter gratis ya!