I am just running an excercise to see if I can expand a loopin
function.

I have a column that is basically a toggle that holds either an X o
nothing. I would like to go through each row of this column and d
something if there is an X there. For now I am just going to count th
X's essentially writing a countif function. Later it will not coun
but copy things to other areas based on the X.

I am a novice at VB, but I do have a little bit of C++ knowledge.
have come up with something that doesn't work but am not sure where t
go from here.

Here is the code that I have:

Sub Copy()
Dim Store As Integer

Store = 0

For Each c In Worksheets("SPARE9").Range("O11:O92").Cells
If c.WorksheetFunction.Value Eqv Val("x") Then Store = Store
1
Next

Range("A1").Select
ActiveCell.FormulaR1C1 = Store


End Sub

Any Ideas?

Thanks,
Andre

--
Message posted from http://www.ExcelForum.com