Run Code When User Exits Cell

This code must be placed in the Private Module of the Worksheet.

This Procedure will run automatically when a user exits cell A1 (can be any cell). Dim of rTriggerCell is at the Procedure Level.

Dim rTriggerCell As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Triggers an action upon user exiting cell A1 On Error Resume Next Application.EnableEvents = False 'Entered into Trigger cell If Target.Address = "$A$1" Then Set rTriggerCell = Target Application.EnableEvents = True On Error GoTo 0 Exit Sub End If  If Not rTriggerCell Is Nothing Then 'They are leaving A1      MsgBox "You just left cell A1", vbInformation, "OzGrid.com" Set rTriggerCell = Nothing End If    Application.EnableEvents = True On Error GoTo 0 End Sub

Code Snippits