Private Sub Worksheet Pop message only when adding values

Iron Contributor

This macro below pops a massage when a change is made in column U. Is it possible to only pop message when changes are added (not deleted)?

 

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Range("$AW$21:$AX$629").AutoFilter Field:=1

If Not (Application.Intersect(Range(" U30:U629"), Target) Is Nothing) Then



If MsgBox("Select 'No' until ADDITIONAL SHARES are manually entered. Have you finished manually entering 'ADDITIONAL SHARES' to use unallocated funds?", vbQuestion + vbYesNo, "") = vbYes Then

Call ManualCalculate


End If

End If


End Sub

0 Replies