try this

Sub ifalphabet()
Set Rng = Range("c2:t4")
Rng.Formula = "=IF($rc$2=CHAR(column(A1)+97+1),$rc$1,0)"
End Sub

--
Don Guillett
SalesAid Software

"aapp81" wrote in message
...

the formula in question is:

Range("C2").Select
Selection.FormulaR1C1 = "=IF(RC2=""C"",RC1,0)"

and my code, unfortunately, looks like this:

Range("C2").Select
Selection.FormulaR1C1 = "=IF(RC2=""C"",RC1,0)"
Range("D2").Select
Selection.FormulaR1C1 = "=IF(RC2=""D"",RC1,0)"
Range("E2").Select
Selection.FormulaR1C1 = "=IF(RC2=""E"",RC1,0)"
Range("F2").Select
..and so on... until ("T2")

and my question is, what do i have to add so that i don't have to write
the code for each cell

basically i'm looking for a For | Next operator that increases the A to
a B from col. C to D and so on...

sorry for the odd explanation...


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

~~Now Available: Financial Statements.xls, a step by step guide to
creating financial statements