Roger,

What line does it fail on?

Anyway, try changing

i = myCell.Value

to

i = CInt(myCell.Value)

Your values may be strings...

Bernie


"Roger on Excel" wrote in message
...
Bernie, ive utilized your code in my spreadsheet, however im having a
"type
mismatch" problem with the formulas in the cells with the numbers.

Can you help?

Roger

"Roger on Excel" wrote:

Berinie,

This is excellent - thanyou so much for your help

Best regards,

Roger