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

5 votes344 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
4 votes326 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote315 views1 answer
Vbnet dynamically change excel sheet name
VBA
0 vote340 views4 answers
How to continue formula in below line in vba code
VBA
0 vote332 views2 answers
Vba remove line breaks
VBA
0 vote324 views1 answer
Vb streamreader
VBA
0 vote378 views1 answer
If statement vdhl
VBA
0 vote345 views1 answer
Group controls programmatically vb
VBA
2 votes312 views1 answer
Excel vba extract file name
VBA
5 votes378 views1 answer
Excel-vba get integer high byte
VBA