Sorry but I forgot to mention that A1 values did not change

"Btobin0" wrote:

That errored out. Idid get this to work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.ActiveCell.Column = 1 And Application.ActiveCell.Row < 32 Then
Application.ActiveSheet.Range("A1").Value = Application.ActiveCell.Value
End If
End Sub

"KellTainer" wrote:


Hi

You can do this programmatically through VBA. Use this in the sheet
object that enforces this behavior.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.ActiveCell.column = 1 And Application.ActiveCell.row
1 And Application.ActiveCell.row < 32 Then
Application.ActiveSheet.Range("A1").Value =
Application.ActiveCell.Value
End If
End Sub


--
KellTainer
------------------------------------------------------------------------
KellTainer's Profile: http://www.excelforum.com/member.php...o&userid=34322
View this thread: http://www.excelforum.com/showthread...hreadid=546331