Trying to split worksheet based on contents of a column

I've found a code to do the above which I've included. I'm pretty sure this worked yesterday but today I am getting an 'Else without IF' error.

The contents of my worksheet are something like

Column1:
Colour
Column 2:
Name
Column 3:
Password

what I'm looking to do is to have a new worksheet created for every unique value in column 1 and any value that has that value to populate the new worksheet - I can't see where I am going wrong! Any suggestions gratefully received.

Please Login or Register  to view this content.

That is fabulous! Thanks very much - works perfectly.

Just a what if... rather than evaluate a column to evaluate the results of a formula instead? For instance - if a column has a long list of usernames, could I split it based on the first two letters of that column? I'm new at VBA so just trying to figure out what is do-able or not.

Thanks!