Problemas con el End Sub

Tengo el End sub puesto
pero me dice error en la compilacion en el End Sub
en otras procedures no me da este error
lo ejecuto desde una ventana de imediato

Private Sub SumandoFilas(NColumnas As Long)
Dim NFilas As Long
NFilas = 2 ^ NColumnas
Dim Matriz() As Variant
NColumnas = NColumnas + 1
ReDim Preserve Matriz(NFilas, NColumnas)
Dim f As Long: Dim c As Long
For f = 1 To NFilas 'Inicializar
For c = 1 To NColumnas
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
End Sub


GRACIAS A TOD@S



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