You could make a temporary entry into the AutoCorrect list:

Private Sub Workbook_Activate()
Application.AutoCorrect.AddReplacement ".", ":"
End Sub

Private Sub Workbook_Deactivate()
Application.AutoCorrect.DeleteReplacement "."
End Sub



In article ,
"Terry Lowe" wrote:

I need to replace keystrokes the user types in cells of a spreadsheet. For
example, if they type a period "." I want to replace it with a colon ":".
I've tried combinations of OnKey with SendKeys but I cannot get it to work.
Does anyone have any suggestions on how to do this? Thanks.