If you really want a phone.........

Sub hello()
ActiveCell.Value = Chr(40)
ActiveCell.Font.Name = "Wingdings"
End Sub


Gord Dibben MS Excel MVP

On Wed, 18 Mar 2009 12:23:07 -0700, Gary''s Student
wrote:

First insert these macros and then run the keyset macro:

Sub keyset()
Application.OnKey " ", "hello"
End Sub

Sub hello()
ActiveCell.Value = "a"
ActiveCell.Font.Name = "Marlett"
End Sub

If you then click on a cell and then touch the spacebar, a checkmark will
appear in the cell.