Probably because you have stored it in the wrong place. It should go in the
worksheet code module, not a standard code module.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Dave" wrote in message
...
Private Sub Worksheet_Calculate( )
Range("L" & 21 + Application.WorksheetFunction.Count([L21:L35])) =
[J21].Value
End Sub

The above will not run automatically, but will run if I enter the Module
and
press
the Run Sub Button.
Help please