It didn't work quite how I was needing, so if any of you have looked at this and have a word of advice.
After closer examination, the code I had used, wasn't exactly the code I posted above. so I reworked it a bit and have come up with the following solution, however, it doesn't seem to be working, and is giving me a mismatch error.
The following is the code that produces the error:
However, the following does work and I have used it successfully in the same workbook:
I'm not seeing the difference in why the former code is not working.