Print Active Worksheet if value of Cell C2 equals 1

Good morning,
I'm looking to print the active worksheet if cell C2 value in the active sheet has a value of 1
Can anyone help with this?
Thanks in advance

This example makes sense and I agree, should work. When I type a 1 in cell C2 and press enter, nothing happens

Here's what I have, What am I doing wrong.
I can get this to work by running the macro, but not by entering a 1 in cell C2.
In workbook code I have. . .

Private Sub Worksheet_Calculate()
On Error Resume Next
If [c2] = 1 Then
Application.Run "sheet1.ams"
End If

End Sub


In sheet1 code I have. . .

Sub ams()
Application.ActiveSheet.PrintOut
End If
End Sub

Got it, thank you for your help.

Private Sub Worksheet_Change()
On Error Resume Next
If [c2] = 1 Then
Application.Run "sheet1.ams"
End If
End Sub

Sorry,
This was the code I used . . .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
Set x = Range("C2")
If x = 1 Then
Application.ActiveSheet.PrintOut
End If
End Sub