i SEE. no that did not work, either. Where can I learn of this VBA that you
speak of?


damorrison wrote:
Give this a try,

Private Sub Worksheet_Change(ByVal Target As Range)
Range ("C1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
That should work, I am on an Island in the Pacific Right now and the
computer here doesn't have excel


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1