Split Workbook into Tabs whilst Maintaining formula and dropdowns

I am using the following code to allow me to split a worksheet into individual tabs, based on a column selection, for example, if I run the macro 'Split31' and choose 1 as my column, it will split the workbook into North, South, East and West tabs containing the relevant data.

I want to expand this though, so that the split sheets keep the formula and the dropdown lists, which in the attached sample are in columns C, F and G. I would also like the split worksheets to automatically zoom to 80% and have the top row frozen.

Are these possible to do by adapting this code? I'm not really sure where to start as I'm still very new to VBA.

Many thanks

Please Login or Register  to view this content.

Hi Jaslake,

That worked perfectly, many thanks for your help, greatly appreciated.

I added the folowing lines to accommodate the zoom and freezing the first row, so I'm a very happy person now...

Please Login or Register  to view this content.