I have the following code in the worksheet change area and it works fine except for when I hit the delete key, it does not trigger.
I tested by using another cell and checking for the true result of =BH13=0 and it returns true so I know the value is 0 but when I hit the delete key but I am not sure why it doesn't execute the code.
BH13 does have a formula and I think that may have something to do with it but not sure what, this is the formula in BH13
=IFERROR(IF(BH12<>"pay periods=?",IF(BH12<>0,ROUNDDOWN(BH12/12,2),0),0),"")
any ideas on how I can fix this?
I tested by using another cell and checking for the true result of =BH13=0 and it returns true so I know the value is 0 but when I hit the delete key but I am not sure why it doesn't execute the code.
BH13 does have a formula and I think that may have something to do with it but not sure what, this is the formula in BH13
=IFERROR(IF(BH12<>"pay periods=?",IF(BH12<>0,ROUNDDOWN(BH12/12,2),0),0),"")
any ideas on how I can fix this?
VBA Code:
If Target.Address = "$BH$10" Then
If Range("$BH$13").Value = 0 Then
ActiveSheet.Shapes("BaseIncome").Visible = False
Else
If Range("$BH$21").Value = "Declining" Then
ActiveSheet.Shapes("IncomeDecline").Visible = True
ActiveSheet.Shapes("BaseIncome").Visible = False
Else
ActiveSheet.Shapes("IncomeDecline").Visible = False
If Range("$BH$20").Value > Range("$BH$13").Value Then
ActiveSheet.Shapes("BaseIncome").Visible = True
Else
ActiveSheet.Shapes("BaseIncome").Visible = False
End If
End If
End If
End If