Hello,

Firstly, I really thank you!
I'm a newbie about vb and trying to solve a problem.

I am using the code and i got an error below:

"By(q) = <Subscript out of range>"

How can I fix this?

Thank you.