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 votes410 views1 answer
Excel vba low word from Long Integer
VBA
0 vote350 views1 answer
VB get external IP address
VBA
0 vote329 views1 answer
Vba copy paste value only
VBA
1 vote353 views1 answer
VBA Loop through recordset
VBA
0 vote355 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote341 views1 answer
Vba text to general
VBA
1 vote316 views1 answer
Vba exit do while
VBA
2 votes340 views1 answer
Excel vba date to string conversion
VBA
0 vote388 views1 answer
Excel vba set cell value to empty
VBA
0 vote385 views1 answer
Open file dialog in vb.net
VBA