Ooooooooooooooooh -- COLUMN, yeah, yeah. Excellent would be true! (However I
like Mike's one even better - geekier <g!

Thanks a million.
--
Dave
Temping with Staffmark
in Rock Hill, SC


"excelent" wrote:

=LEFT(ADDRESS(1,COLUMN(A1),4,1),FIND("1",ADDRESS(1 ,COLUMN(A1),4,1))-1)


"Dave Birley" skrev:

My wife works tech support at a large company. Her specialty is Outlook, but
she covers all MS Office products to a degree. Her job description precludes
her from supporting VBA programming, so guess who gets delegated to smoke out
the answer? Here's her question:

"I need to copy the alphabet across and this formula will only copy the
alphabet down.

=LEFT(ADDRESS(1,ROW(B1),4,1),FIND("1",ADDRESS(1,RO W(B1),4,1))-1)"

However looking at the formula she sent me, it appears to have nothing to do
with the question. Sheesh!

Anyway, copying the alphabet across is what she mentioned to me before, and
I suspect that is really what she wants. (Be nice to me -- Anita is wife
v.2.0, as of less than two years, and the "period of adjustment" is still in
full flower <g!)

For something so simple, and assuming it would be needed to use on various
WSs, This dorky macro does it:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/4/2007 by Administrator
'

'
ActiveCell.FormulaR1C1 = "A"
Range("B1").Select
ActiveCell.FormulaR1C1 = "B"
Range("C1").Select
ActiveCell.FormulaR1C1 = "C"
Range("D1").Select
.
.
.
ActiveCell.FormulaR1C1 = "Y"
Range("Z1").Select
ActiveCell.FormulaR1C1 = "Z"
Range("A1").Select
End Sub

But surely there must be a formula that could be fired off in a single cell
to do it?

Could it be that this clown's formula is trying to capture the letters from
the column names? I can't make head nor tail of it.
--
Dave
Temping with Staffmark
in Rock Hill, SC