Formula
		-------
=OR(CELL("row")=ROW(),CELL("col")=COLUMN())




		VBA Code
		--------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Calculate
End Sub