Something like this:

range("1:1").Find(#7/6/04#).offset(1,0).Value=6500
range("1:1").Find(#7/6/04#).offset(2,0).Value=format(1000.12, "$###,###.00")

You would probably use variables where I have used values. Note the date
format - I have assumed you are using the US system.

Jeff

"Jon Workman" <Jon wrote in message
...
I am trying to write a function that will copy data from an import sheet
to a particular column on another sheet. The column is determined by a date
that is shown on a particular row.

For example, I have this data on the import sheet: 7/6/2004, 6500,
$1000.12

A B C D
E
1 7/1/04 7/2/04 7/5/04 7/6/04 7/7/04
2 ______
3 ______

Is it possible to go this sheet I set up, determine that 7/6/04 is in
column D, and return "D" as the value? I can then copy the 6500 into D2,
and $1000.12 in D3.

Thank you for any help. This is way outside of my expertise in
programming in excel.