right click sheet tabview codeinsert thismodify to suitSAVE
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$G$1" Then Exit Sub
Cells(Target + 1, Target).Value = Target

End Sub


--
Don Guillett
SalesAid Software

"ian123" wrote in message
...
i have a cell which will have a number put in it.how do i tell exel to
paste
to different cells (depending on what number is put in the cell)

EXAMPLE :
if the cell contains "1" then paste "hello" in cell A2

if cell contains "5" then paste "hello" in cell F6