Slightly more refined

Dim lastRange As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If (lastRange.Address = "$A$1") Then
If (lastRange.Value Range("B1")) Then
lastRange.Value = 120
End If
End If
On Error GoTo 0
Set lastRange = Target
End Sub



"stormy" wrote:

You could write some VB to do this, however cumbersome it may be. Assuming
that the cell you want to become 120 is "A1" and the 'X' is in cell "B1":
<snip
Its up to you to detect the cell you want to change, to find the value for
X, to properly initialize lastRange, and to determine if this is more hassle
(and overhead) than its worth!

"SeattleBumm" wrote:

My email address is

I want to have a cell such that if the number in the cell is greater than X,
the formula puts 120 in the cell.

Thanks for your help! Please send me an email if you know how to do this!