Visual Basic para Aplicaciones - hacer programa en visual basic

Sub jesus()

mayor = Application.WorksheetFunction.Max(Range("a1:a7"))

menor = Application.WorksheetFunction.Min(Range("a1:a7"))

For i = 1 To 7

    If Cells(i, 1) Mod 2 = 0 Then j = j + 1

Next i

pares = j

nones = 7 - j

For i = 1 To 7

    For j = 2 To Cells(i, 1) - 1

        If Cells(i, 1) Mod j = 0 Then

            k = k + 1

            Exit For

        End If

    Next j

Next i

k = k - 1

primos = 7 - k

noPrimos = k

loga = Application.WorksheetFunction.Log(mayor + menor)

miMsg = "El nº mayor de la serie es " & mayor & vbLf

miMsg = miMsg & "El nº menor de la serie es " & menor & vbLf

miMsg = miMsg & "Hay " & pares & " número/s par/es" & vbLf

miMsg = miMsg & "Hay " & nones & " número/s impar/es" & vbLf

miMsg = miMsg & "Hay " & primos & " número/s primo/s" & vbLf

miMsg = miMsg & "Hay " & noPrimos & " número/s no primo/s" & vbLf

miMsg = miMsg & "El logaritmo del mayor más el menor es " & loga

MsgBox miMsg

End Sub