I am trying to get this code to run a macro based on the number in cell C7.
All of the macros work perfectly, but I can't get the worksheet change to trigger them.
Here's the code -
Any help would be appreciated!
All of the macros work perfectly, but I can't get the worksheet change to trigger them.
Here's the code -
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("C7")
Application.EnableEvents = False
If Target Is Nothing Then
Call ROWNULL
End If
If Not Intersect(Target, Range("C7")) Is Nothing Then
If Target.Value = 1 Then
Call ROWONE
Else
If Target.Value = 2 Then
Call ROWTWO
Else
If Target.Value = 3 Then
Call ROWTHREE
Else
If Target.Value = 4 Then
Call ROWFOUR
Else
If Target.Value = 5 Then
Call ROWFIVE
Else
If Target.Value = 6 Then
Call ROWSIX
Else
If Target.Value = 7 Then
Call ROWSEVEN
Else
If Target.Value = 8 Then
Call ROWEIGHT
Else
If Target.Value = 9 Then
Call ROWNINE
Else
Call ROWNULL
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Any help would be appreciated!