ExcelBanter - How to determine column letter in a spreadsheet?

I assume the statements you included below would go into the cells on the spreadsheet? I am actually looking to write code in a module to figure out the column letter. My example is over simplified. I have a large amount of data that will be copied to numerous worksheets every day. However the date (7/6/04) will be in the same column on every worksheet I will be copying to for that day, and it will increment to the next column for the following day.

So if 7/6/04 is in the "D" column, 7/7/04 will be in the "E" column, but the dates will only be for Monday thru Friday.

I hope this clarifies my dilemma.

"Jeff Standen" wrote:

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.