Gary Keramidas
12/16/2006 7:29:00 AM
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" <ordnance1@comcast.net> wrote in message
news:%23EdthMOIHHA.3872@TK2MSFTNGP06.phx.gbl...
> Can you trigger a macro by changing 1 cell?
>
> Specifically if I change Cell Y1 of worksheet January I want
> SortModule.FRDSort to run.
>