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 votes360 views1 answer
Vba make integer
VBA
2 votes294 views1 answer
Excel vba extract file name
VBA
0 vote314 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote293 views2 answers
Excel vba close without saving
VBA
1 vote306 views1 answer
Vba delete file
VBA
-1 vote282 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote320 views1 answer
Add text to combobox drop down vb
VBA
15 votes436 views2 answers
Xl vba dynamic string array
VBA
5 votes296 views1 answer
Excel vba high word from Long Integer
VBA
0 vote315 views1 answer
VBA Loop to range
VBA