How can I get a macro to run automatically only when a
specific cell e.g. A1 has its value changed?
Many thanks.

In VBA module in "ThisWorkbook" capture the
SelectionChange event. If the address of the target is
the correct cell address, then execute code.

Example :

Sub Worksheet_SelectionChange (ByVal Target as Range)
If Target.Address = "$A$1" then
' put your code here
end if
End Sub
-----Original Message-----
How can I get a macro to run automatically only when a
specific cell e.g. A1 has its value changed?
Many thanks.
.

Tim,

Worksheet event code

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
On errot GoTo ws_exit
If Not Intersect(Target, Range("A1")) Is Nothing Then
'your code here
End If

ws_exit:
Application.EnableEvents = True
End Sub


Right-click on the sheet tab name, select the View Code option, and put the
code in there.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks

"Tim Smith" wrote in message
...
How can I get a macro to run automatically only when a
specific cell e.g. A1 has its value changed?
Many thanks.

Philip,

If you use Worksheet_SelectionChange event then it goes in the appropriate
worksheet code module not ThisWorkbook. For ThisWorkbook, you would use

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)

and test the sheet as well.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"philip" wrote in message
...
In VBA module in "ThisWorkbook" capture the
SelectionChange event. If the address of the target is
the correct cell address, then execute code.

Example :

Sub Worksheet_SelectionChange (ByVal Target as Range)
If Target.Address = "$A$1" then
' put your code here
end if
End Sub
-----Original Message-----
How can I get a macro to run automatically only when a
specific cell e.g. A1 has its value changed?
Many thanks.
.