Trigger a procedure on a cell change 1

[billheath]

I'm a newbie - I have searched but I can not find the code for starting a procedure when someone changes a cell in Excel. This is easy in Access.
I think it has something to do with the worksheet change event.

I have tested the procedure and it works when run manually. It should run when someone changes the text in cell B156.
Thanks,

Help Please!!

 

[SkipVought]

Hi,

Yes, it is the Worksheet_Change event, when the target.address = range("B156").address or...

if not intersect(target, [B156]) is nothing then
   'correct cell changed
end if

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[billheath]

Thanks, Here is the code - Nothing happens!


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [C156]) Is Nothing Then

Dim Txt, WkSh
CurrentCell = ActiveCell

WkSh = ActiveSheet.Name
Txt = ActiveCell.Text
Worksheets("June 08").Activate
Worksheets("June 08").Range("C156").Activate
ActiveCell.Value = Txt
Worksheets("July 08").Activate
Worksheets("July 08").Range("C156").Activate
ActiveCell.Value = Txt
Worksheets("Aug 08").Activate
Worksheets("Aug 08").Range("C156").Activate
ActiveCell.Value = Txt
Worksheets("Aug 08").Activate
Worksheets("Aug 08").Range("C156").Activate
ActiveCell.Value = Txt
Worksheets("Sept 08").Activate
Worksheets("Sept 08").Range("C156").Activate
ActiveCell.Value = Txt
Worksheets("Oct 08").Activate
Worksheets("Oct 08").Range("C156").Activate
ActiveCell.Value = Txt
Worksheets("Nov 08").Activate
Worksheets("Nov 08").Range("C156").Activate
ActiveCell.Value = Txt
'Worksheets("Dec 08").Activate
'Worksheets("Dec 08").Range("C156").Activate
'ActiveCell.Value = Txt

End If

End Sub

 

[SkipVought]

You have SelectionChange

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}