Macro 95% working - Find and Move Columns

OK, so I posted in the MrExcel forums to get some VBA help and I have a macro that does 95% of what I want it to do, however I need help to get it to function correctly.

Thread can be found here: http://www.mrexcel.com/forum/showthread.php?p=2884439&posted=1#post2884439

Any help would be appreciated.

Thanks!

Vishesh's picture

In which module have you

In which module have you written your procedure. If its in general module than prefix all Cells and Columns with the sheet name. For e.g.

Worksheets("SheetName").Columns(c).EntireColumn.Cut
Worksheets("SheetName").Cells(1, 2).Value