right click the sheet tab you want it to run on and select view code
paste this and test it out

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Not Intersect(Target, Range("Y1")) Is Nothing Then
MsgBox "run code"
End If
End If

End Sub


--


Gary


"Patrick Simonds" wrote in message
...
Can you trigger a macro by changing 1 cell?

Specifically if I change Cell Y1 of worksheet January I want
SortModule.FRDSort to run.