Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione di dati
si sono valori all'interno di una cella
Allora togli le virgolette, ma il concetto è lo stesso:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F7:F700")) Is Nothing Then
Select Case Target.Value
Case 750
MACRO1
Case 900
MACRO2
Case 1000
MACRO3
End Select
End If
End Sub