Cell number stands for Column # ?


Code
-------------------

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) < "A2" Then Exit Sub
If Not IsNumeric([A3].Value) Then Exit Sub
Cells(1, [A3].Value).Value = Target.Value
End Sub

-------------------


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