We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Worksheet_Calculate() Dim cel As Range Dim Addr As Variant, Targ As Variant Static Stocks(3) As Double 'Starts with element 0 Dim i As Long, n As Long Addr = Array("AQ3", "AV3", "AP3", "AU3") 'Watch these cells for price changes Targ = Array(85, 85, 20, 20) 'Look for prices above these threshhold values n = UBound(Stocks) For i = 0 To n With Range(Addr(i)) If Stocks(i) <> .Value Then Stocks(i) = .Value If .Value > Targ(i) Then Open "C:\Users\User\Documents\ABC.txt" For Append As #1 'Change path & name to suit Write #1, .Address(False, False), .Value, Date, Format(Time, "hh:mm:ss.ss") Close 1 End If End If End With Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.