Hi Tom,
I wish that would have been the reason. But it ain't.
I typed it wrongly when I was typing the follow-up question here.
On the file "lngcol" is typed with an "L" not an "I".
I am stuck.
I am uploding the file to my website with the name "distribute.xls" Here is
the link:
http://www.eserceker.com/xls/distribute.xls
I' ll be more then happy if you or any expert interested here will give it a
try.
Sorry for the non-english language used in the file. But it is straight
forward. Only one button available on Sheet1 to execute all macros...
Sincerely
J_J


"Tom Ogilvy" wrote in message
...
Near as I can tell the problem is you misspelled lngcol by using an "I"
instead of an "L"

Select Case rngCell(1, IngCol).Value

however, even if IngCol has a value of 0, it shouldn't raise an error:

set rngCell = Range("C10")
? rngCell(1,0).Address
$B$10



--
Regards,
Tom Ogilvy

"J_J" wrote in message
...
Sorry for my mistake:
Column A is used for marking with "X" thus The names are in column B,
exam
points in C, and 1st, 2nd and 3th coices are in columns D, E, F
respectively.
J_J