What changes were made since the last time it worked ?

Also, perhaps Dim "Columns" and / or "Row" ? Can't test it here cuz I can't replicate your workbook. Taking a stab at the issue.