Excel vba cell on change

' In your Worksheet code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("A1")) Is Nothing Then 
    	Application.EnableEvents = False
    	'  Do your stuff
    Application.EnableEvents = True
    End If
End Sub

Similar codes

3 votes277 views1 answer
Vba continue for each loop
VBA
1 vote210 views1 answer
How to open cmd with vbd
VBA
1 vote245 views1 answer
Extract the second word in a text in excel
VBA
0 vote238 views1 answer
Vbscript Trim
VBA
0 vote207 views1 answer
Excel vba linter
VBA
0 vote185 views1 answer
How to make a if statement with vbs
VBA
0 vote261 views1 answer
Vba listbox remove all items
VBA
2 votes232 views1 answer
Excel vba date to string conversion
VBA
0 vote251 views1 answer
Vba string
VBA
0 vote264 views1 answer
Iterate all file in a folder vba
VBA