Macro to Fire when Range("C1") is modified

I want to have a macro fire upon a certain event: Range("C3") is changed. How would I program this?

If Target.address=$C3$ then
'''do something

Need to put AB33's code inside ThisWorkbook and apply it to the Worksheet_Change event

How do I apply it to worksheet change event?

First you have to put the code listed below in the right place. Make sure you click on the correct VBA project and then click on the 'This Workbook' option. See the file below.

This Workbook..JPG

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        
    If Not Intersect(Target, Range("C3")) Then
        
        MsgBox ("Cell C3 has been changed") 'You can change this line to the code that you want to be executed when C3 is changed.
               
    Else
    
    End If
    
End Sub

bstier

Sorry, The code worked just fine when I changed C3 but when I changed any other cell I would get an error. So here is the corrected code to ignore the change to other cells.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        
On Error GoTo DoNothing
    
    If Not Intersect(Target, Range("C3")) Then
        
        MsgBox ("Cell C3 has been changed") 'Change this section of the code if you want additional code to be processed.
    
    Else
    
    Exit Sub
    
    End If
    
DoNothing:
    
End Sub

I got in a hurry before and didn't check to see if the code worked properly when I changed a cell other than C3. When I did this after the post I realized that the code was crashing. Since we don't care about the change of the other cells I used an On Error Goto statement to fix this. AKK9 caught this as well as I did but I have had trouble all afternoon with the Excel Forum site not showing all posts and allowing me to make timely corrections. Thanks for the double check AKK9

Anyway, this code should be in the Sheet1(Sheet1) and not the ThisWorkbook. Thanks Marcol

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        
On Error GoTo DoNothing
    
    If Not Intersect(Target, Range("C3")) Then
        
        MsgBox ("Cell C3 has been changed") 'Change this section of the code if you want additional code to be processed.
    
    Else
    
    Exit Sub
    
    End If
    
DoNothing:
    
End Sub

Originally Posted by Marcol

Why not use this in the worksheet module?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "C3" Then MsgBox ("Cell C3 has been changed")
End Sub

When you use the workbook module, you also have to define the sheet it has to apply to.

For example

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Sheet1" Then
        If Target.Address(0, 0) = "C3" Then MsgBox ("Cell C3 on " & Sh.Name & " has been changed")
    End If
End Sub

Thanks for pointing this out, putting it in the Sheet module rather than ThisWorkbook is def. the way to go