Invalid Procedure Call (Mid fxn)

Can't figure out what I'm doing wrong. Receive an Invalid Procedure Call or Argument error. Code stops at Mid function. Any help? Thanks. Receive same error when I replace ActiveCell in the Mid fxn with Range("A1")

Please Login or Register  to view this content.

Your code does not test for valid values of begin and leng before trying to use Mid, which I suspect is your issue.

Please note that when posting code on the forum, you must enclose it in code tags. I have added them for you on this occasion as it's your first post (welcome, by the way! ) but you must use them in future, please.