So I need to list each one as long?

What about the rest of the code. I am still trying and it is still doubling
the numbers. I tried changing the if statement's to elseif and that didn't
seem to change anything. It will not pick up any of the X's in the columns.
Do I need to use different than 'long' for them? It still isn't picking up
anythin in the column that < "". Somebody please hlep!

"JE McGimpsey" wrote:

Small correction...

only 150CO is declared as long.

In article ,
"Fredrik Wahlgren" wrote:

Dim 150DEL30, 150Del60, 150DelNA, 150CO As Long

<snip

Only 150DEL30 is declared as lingm the rest as variant.