Tabla de multiplicar del 1 al 10

'Código que realiza la tabla de multiplicar del 1 al 10 en Microsoft Excel

'Realizado por Daivinson Coffi, Marzo 2012

Sub ejecutar()

'Código que realiza la tabla de multiplicación del 1 al 10

Dim vocales As Integer, j As Integer

    For i = 1 To 10

        For j = 1 To 10

            Application.Cells(i, j).Value = i & "*" & j & " = " & i * j

        Next j

    Next i

End Sub