Using the following I was able to create a running total column for th
specified cell.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
If Target.Address = "$A$2" And Target.Value < "" Then
ActiveSheet.Cells(Rows.Count, 2).End(xlUp) _
.Offset(1, 0).Value = Target.Value
End If
stoppit:
End Sub

How would I edit this to have a seperate column for each cell in colum
A, say cells A2:A52 (i.e. cell A2 would be displayed in column B, cel
A3 would be displayed in column C, cell A4 would be displayed in colum
D, etc...)? Pleae help.

Thanks,

Jef

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