Missing an end if OR line continuation character
OR bring up to one line and you don't need selections

for each cell in Range("A" & begrng & ":A" & endrng)
If Right(Cell.Value, 4) = "-Inc" Then begexprng = begexprng + 1
Next Cell
msgbox begexprng

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"WLMPilot" wrote in message
...
I have the following code:

begexprng = 0
Range("A" & begrng & ":A" & endrng).Select
For Each Cell In Selection
If Right(Cell.Value, 4) = "-Inc" Then
begexprng = begexprng + 1
Next Cell

I am trying to select a group of cells in column A and count the ones that
have
"-Inc". It should count any cell with either "1-Inc" or "2-Inc" There
are
other values in column A also.

The problem is I am getting a compile error: Next without For.

Any ideas?

Thanks,
Les