Excel Oddities


Return to The Spreadsheet Page

Excel page

User tips

Developer tips

Excel FAQs

Excel files

Excel Expert E-Letter

Excel Help Resources

Excel links

Excel oddities

Excel books

Power Utility Pak for Excel


Makes you want to say, "Hmmmmm..."

Try executing this VBA procedure. I guarantee you'll be surprised by the result.

Sub HowDidHeDoThat()
    For x = 0 To 5
        x1 = x1 & Chr(x * (x * (x * (x * (-0.75 * x + 7.2917) _
            - 22.5) + 16.708) + 28.25) + 72)
    Next x
    For x = 0 To 6
        x2 = x2 & Chr(x * (x * (x * (x * (x * (0.425 * x - 6.8667) _
            + 40.833) - 109.58) + 122.24) - 23.05) + 87)
    Next x
    MsgBox x1 & x2
End Sub

(contributed by Bob Umlas. Original author unknown).