How do I code an event change macro that triggers when cell A2 is
changed.

Thanks

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = ActiveSheet.Range("$A$2") Then
MsgBox "Hello"
End If

End Sub

substitute the msgbox with your code.......
hope that helps!

susan


On Nov 3, 12:19*pm, snax500 <billgottsch...@verizon.net> wrote:
> How do I code an event change macro that triggers when cell A2 is
> changed.
>
> Thanks

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Private Sub Worksheet_Calculate()
On Error GoTo stoppit
Application.EnableEvents = False
With Me.Range("A2")
If .Value <> "" Then
MsgBox "A2 was just changed"
End If
End With
stoppit:
Application.EnableEvents = True
End Sub

Right-click on the sheet tab and "View Code"

Copy/paste into that sheet module. Edit to suit.


Gord Dibben MS Excel MVP


On Mon, 3 Nov 2008 09:19:06 -0800 (PST), snax500
<(E-Mail Removed)> wrote:

>How do I code an event change macro that triggers when cell A2 is
>changed.
>
>Thanks