Running a Macro Based on cell value

[Mahaffey19]

So I have a Project that I need to print out and clear a section of text. The print and Clear text is all handled in macro1 but it seems to not work. Cell B19 is a formula that will either supply a 1 or 0 based on what is in column A. I am not sure if this is what is causing the issue of it not working.



Private Sub Worksheet_Change(ByVal Target As Range)
Dim targCell As Range
Set targCell = Worksheets(Sheet1).Range("B19")


If Not Application.Intersect(Target, targCell) Is Nothing Then
If targCell.Value = 1 Then
Call Macro1
End If
End If
End Sub

 

[JoeMo]

Because B19 contains a formula, when B19 changes as the result of one or more of its precedent cells changing, a change_event will not trigger. Consider using a worksheet_calculate event or using a key precedent cell that is changed manually to apply the worksheet_change event code.