Thanks for the responses. You've given me some interesting ideas to
look into--in the meantime I fiddled some more after a good night's
sleep and ended up what you see below, which works!!!!!!!!!

I really can't tell you how much I appreciate this site. Whether or
not I am sophisticated enough to use the suggestions that you folks
offer, the very act of writing out my request for help seems to help
me to come up with solutions by myself.
.............................................................
Sub Macro1()
Application.OnTime Now + TimeValue("00:01:00"), "EndShow"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "<--------"
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = " To Stop Excel from Closing Automatically"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "in ONE MINUTE, Hit x Enter above."
ActiveCell.Offset(-2, 0).Range("A1").Select
End Sub
.......................................................
Sub Endshow()
ActiveCell.Range("A1").Select
If ActiveCell.Range("A1").Row <> 1 Then ActiveCell.Offset(-1, 0).Select
If ActiveCell.Value <> "x" Then
ThisWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
..............................................................