I think this will work.


VB Code:
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  2.  
  3. End Sub.

or

VB Code:
  1. Private Sub Worksheet_Calculate()

  2.  
  3.  
  4. End Sub

Mess around

Seahag