Link Cell To Run Macro

[nehpets12]

Is It Possible to Only Run A Macro If A Cell With A Formula Changes?

Book1
	A	B	C	D	E	F	G	H	I
1		08-Nov	06-Nov	07-Nov	08-Nov	09-Nov
2		10-Nov	11-Nov	12-Nov	13-Nov	14-Nov
3
4	06-Nov		HowDoIGetAMacroToRunOnlyWhenTheCellA4Changes
5			IDontWantItToRunEveryTimeIChangeAValueInTheAboveDates
6			OnlyRunWhenTheChangesAffectCellA4
7
8
Sheet1

 

[Richie(UK)]

Hi nehpets12

Try this:

Declare a Public variable in a normal module, eg Module1 : Public MyFlag As Variant.

Then use this:

<pre>Private Sub Workbook_Open()
MyFlag = Sheets(1).Range("A4").Value
End Sub

Private Sub Worksheet_Calculate()
If MyFlag <> Range("A4").Value Then MsgBox "A4 has changed!"
MyFlag = Sheets(1).Range("A4").Value
End Sub</pre>
HTH

 

[Haluk]

Hi;

Similar to Richie's answer but, you can also try this;

Dim Data

Private Sub Worksheet_Activate()
Data = [A4]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If [A4] <> Data Then YourMacro
End Sub