Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Left(Target.Formula, 1) = "=" Then
Target.Formula = WorksheetFunction.Substitute(UCase(Target.Formula), "MEAN", "AVERAGE")
End If
Application.EnableEvents = True
End Sub