[nikos1121]

From The Arkansas Gazette

4 minutes good
3 minutes excellent
2 minutes exceptional
90 seconds superior

[MustKnowHistory]

Author, 30 seconds.

[who_would_fardels_bear]

shouldn’t the clue be all in lowercase?

[grey_whiskers]

reeeeeeeeeeee!!

[Apple Pan Dowdy]

Well, GAOXFHB and a whole lot of veggies and of course Faith in God.

[who_would_fardels_bear]

To those who are a bit Excel savvy:

1. Open Excel
2. Name one of the sheets: Cryptogram
3. Click View > Macros > View Macros
4. Type 'Crypto' into the Macro Name field and click 'Create'
5. Copy the text below over the 'Sub Crypto... End Sub' text
6. Save the Excel workbook as Cryptogram.xlsm (not .xlsx)
7. Enter the cryptogram in cell A1
8. Run the 'Crypto' macro (View > Macros > View Macros > Run)
9. The cryptogram will be separated into individual characters starting in cell D3
10. The alphabet will be displayed from cells A3 to A28
11. Enter a character in Column B and that letter will appear beneath the cryptogram in every cell with the corresponding letter in Column A.

Here's the text to copy:

Sub Crypto()
Dim ws As Worksheet
Dim c As String, lc As Long, i As Long, e As String

Set ws = ThisWorkbook.Worksheets("Cryptogram")
c = ws.Range("A1")
lc = Len(c)
ws.Rows("2:100").Delete

For i = 1 To 26
ws.Cells(i + 2, 1) = Chr(i + 64)
Next i

For i = 1 To lc
ws.Cells(3, i + 3) = Mid(c, i, 1)
Next i

e = Split(ws.Cells(1, lc + 3).Address, "$")(1)

ws.Cells(4, 4).Formula = "=IF(ISNA(VLOOKUP(D3,$A$3:$B$28,2, FALSE))" & _
","""",IF(VLOOKUP(D3,$A$3:$B$28,2, FALSE)=0,""""," & _
"VLOOKUP(D3,$A$3:$B$28,2, FALSE)))"
ws.Range(ws.Cells(4, 4), ws.Cells(4, lc + 3)).Formula = _
ws.Cells(4, 4).Formula

ws.Columns("D:" & e).EntireColumn.AutoFit
End Sub

[Baldwin77]

easy, peazy.

The author’s name was a dead give away.