Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err001
Application.EnableEvents = False
If Not Intersect(Target, Range("a5:c5")) Is Nothing Then Range("a5:c5") = Application.Average(Range("a5:c5"))
err001:
Application.EnableEvents = True
End Sub