Sub test()

Dim intCol As Integer

For intCol = 3 To 20
Cells(2, intCol).FormulaR1C1 = "=IF(RC2=""" & Chr(intCol + 64) &
""",RC1,0)"
Next intCol

End Sub

--
HTH,
Dianne

In ,
aapp81 typed:
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