Thank you both for all of your help. I am getting closer to getting thi
code to work but this is my first attempt working with code.
I tried the code below replacing Sheet2. with me. but now I can not ge
it to work at all. When you get a chance could you please let me kno
what I am doing wrong. Sorry to be such a pest.

Private Sub Worksheet_Calculate()
Application.EnableEvents = False

If Me.Range("K5") < 0 Then
If Me.Name < Me.Range("K5") Then
Me.Name = Range("K5")
End If
End If

Application.EnableEvents = True
End Su

--
Message posted from http://www.ExcelForum.com