Sub Confinenment_made_me_nuts()
Dim r As Range: Set r = [A1:A77]: r = "=Address(ROW(),COLUMN(),4)"
Nuts = 3100
Banana = Split("53²74²61²70²6C²65", "²")
With Application
For i = 0 To 5
Cookie = Cookie & Chr(.Hex2Dec(Banana(i)))
Next
And_IceCream = .Oct2Dec(Nuts)
r.Item(17).Resize(9) = Cookie & And_IceCream
MsgBox .CountIf(r, Cookie & And_IceCream), vbExclamation, "Served by " & Cookie & And_IceCream & ";-)"
End With
End Sub