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

0 vote225 views1 answer
How to make a if statement with vbs
VBA
0 vote212 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
-1 vote248 views1 answer
Vba sendkeys
VBA
0 vote220 views1 answer
Vbscript abs
VBA
8 votes496 views1 answer
Vba make a short integer from two bytes
VBA
0 vote235 views1 answer
Excel vba prevent saving workbook
VBA
0 vote269 views1 answer
Excel vba protect sheet
VBA
0 vote235 views1 answer
Open file dialog in vb.net
VBA
1 vote222 views2 answers
Vba find last row in range for certain criteria
VBA
3 votes221 views1 answer
Excel vba last row in range
VBA