You said formula but that would eat up a lot of resources so,
right click sheet tabview codeinsert this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
Sheets("sheet3").Cells(target.row, 1).Value = Target
End Sub

--
Don Guillett
SalesAid Software

"David" wrote in message
...
I want to reference one (1) cell on sheet one (income) A4 and copy the
information (either text or an amount) on Sheet 3 (Income and lose) A4.

InsertNameDefine ='Cash Receipts'!$A$4 (this is actually the date the
cash was received.)

I am able to accomplish this task. It works fine for the one column and
row
only. The income on Sheet one - A4 - is automatically entered on to sheet
three - A4 -when I enter the necessary information in the defined column
and
row A4 on sheet one.

Now I want to be able to do the same for all the cells in Column A on
sheet
one (enter dates income was received) so they appear on column A on sheet
3.
I cant get this to copy down the column.

How do I copy this information down the column so that all the information
I
type on sheet one will appear on sheet three?

I hope this is clear?

--
David