I've created the following VB macro to call different functions when the cells in the Range (AS10:AS12) change in value e.g change from zero to greater than zero
However, the action in the subroutine BackOne is not carried out i.e it doesn't set L9 = "BACK"
Could someone please advise.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("AS10:AS12")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
'Call Sub BackOne when cell AS10 changes
If Range("AS10").Value > 0 Then
Call BackOne
End If
End If
End Sub
Sub BackOne()
' BackOne Macro
Sheets("Form One").Select
Range("L9").Select
ActiveCell.FormulaR1C1 = "BACK"
End Sub