Hi,
The following works great, with one exception, when the target.address is blank (nothing) the macro does not run (of course).
What I need, is for the macro to run in both instances, where the target.address is changed with existing data already entered, AND when the target address was originally blank, but new data was entered.
Here is the code...
... and so forth.
The following works great, with one exception, when the target.address is blank (nothing) the macro does not run (of course).
What I need, is for the macro to run in both instances, where the target.address is changed with existing data already entered, AND when the target address was originally blank, but new data was entered.
Here is the code...
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that when any of the ranged of cells are changed
' triggers the following macros to run.
Set KeyCells = Range("G15:G5006")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If ActiveCell.Offset(-1, -2) = "CashAcct" Then
Call Cash
Else
If ActiveCell.Offset(-1, -2) = "BestBuyVisa" Then
Call BestBuy
Else
If ActiveCell.Offset(-1, -2) = "SlateVisa" Then
Call ChaseSlate
Else
If ActiveCell.Offset(-1, -2) = "BoAMC" Then
Call BoA
Else