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

8 votes415 views1 answer
Vba make integer
VBA
1 vote374 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
5 votes381 views1 answer
Excel formula how to create strings containing double quotes
VBA
5 votes414 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote367 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote360 views1 answer
Do while not vb.net
VBA
0 vote376 views1 answer
System.Runtime.InteropServices.COMException: 'Call was rejected by callee. (Exception from HRESULT: 0x80010001
VBA
0 vote353 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote361 views1 answer
Vba file chooser
VBA
4 votes360 views2 answers
Vba create folder if not exist
VBA