Can anyone tell me why I'm getting the "Subscript out of Range" error on the line in red font? I have a feeling it has something to do with the "ThisWorkbookName = ActiveWorkbook.Name" line, but I'm not sure, as I have the same code structure on a different form, that doesn't give me the same...