Hello, I am trying to make a macro that goes down a column and based on the name adds either Mr. or Ms. into the cell to the left.

For some reason when I try to enter more names into the code it will remove the entire Ms. group. There are no duplicates and I have made sure that there are no extra spaces. I have tries completely starting from scratch but I keep coming back to the same problem.

This is where I get to before it crashes excel when trying to enter more names (had to remove a lot of names to fit):


Sub salutation()

Dim lngCounter As Long

For lngCounter = 2 To Range("D" & Rows.Count).End(xlUp).Row

Select Case Cells(lngCounter, "D").Value

Case "A.J.", "Aaron", "Abadir", "Abdoulaye", "Abdul", "Abdull", "Abe", "Abel", "Abraham", "Abu Bakar", "Abubakar", "Abul", "Abzal", "Aca", "Ace", "Achar", "Acie", "Acy", "Adair", "Adam", "Adan", "Adaren", "Addar", "Adean", "Aden", "Adewole", "Adiv", "Adlai", "Adolf", "Adolfo", "Adolph", "Adolphius", "Adolphus", "Adon", "Adonis", "Adothus", "Aftab", "Afzal", "Agapito", "Agin", "Agus", "Agustin", "Agustine", "Ahamed", "Ahmed", "AJ", "Ajit", "Akai", "Akhtar", "Akin", "Al", "Aladino", "Alan", "Alastair", "Alben", "Albert", "Alberto", "Aldaro", "Alden", "Alec", "Alejandro", "Aleksandar", "Aleksandr", "Alen", "Alexander", "Alfie", "Alfonso", "Alfred", "Alfredo", "Alger", "Alistair", "Allan", "Allen", "Almos", "Alner", "Alonso", "Alonzo", "Alopino", "Alphonso", "Alston", "Alton", "Alvance", "Alvin", _
"Badri", "Badrudin", "Bahjat", "Bahjet", "Balbir", "Baron", "Barrett", "Barron", "Barry", "Bart", "Barton", "Basavapunna", "Bashir", "Basil", "Bass", "Bear", "Beau", "Beauford", "Ben", "Benito", "Benjamin", "Benji", "Bennett", "Benny", "Benson", "Berge", "Berkley", "Bern", "Bernard", "Bernhard", "Bernie", "Berry", "Bert", "Bertie", "Bertrand", "Bharat", "Bill", "Billy Ray", "Billy", "Bing", "Bipin", "Bisente", "Bjarki", "Bjorg", "Blade", "Blaine", "Blair", "Blake", "Blandon", "Blane", "Blayne", "Bo", "Bob", "Bobby", "Boguslaw", "Bohdan", "Bond", "Bonner", "Boots", "Boris", "Boyce", "Boyd", "Brad", "Bradford", "Bradley", "Brahm", "Brandon", "Brandt", "Brant", "Brendan", "Brendon", "Brent", "Bret", "Brett", "Brian", "Brice", "Brick", "Brion", "Brock", "Broderick", "Bronson", "Broward", "Brown", "Bruce", _
"Clifton", "Clint", "Clinton", "Clive", "Clotaire", "Clovis", "Cloyd", "Clyde", "Cochran", "Cody", "Colbert", "Cole", "Coleman", "Collin", "Colon", "Conan", "Confesor", "Conner", "Connor", "Conrad", "Constantin", "Constantine", "Constantino", "Conwell", "Cooper", "Cor", "Corbin", "Corey", "Corkie", "Cornelius", "Cornell", "Cort", "Corwin", "Cosmas", "Cosmo", "Costa", "Coty", "Courtland", "Cox", "Craig", "Crain", "Crane", "Craven", "Cris", "Crispulo", "Crist", "Cruz", "Culley", "Curley", "Curt", "Curtis", "Curtiss", "Cyle", "Cyril", "Cyrus", _
"Dagoberto", "Dale", "Dallas", "Dallis", "Dalton", "Damacio", "Damian", "Damien", "Damon", "Dan", "Dane", "Dang", "Daniel", "Danilo", "Danny", "Danta", "Dante", "Dar", "Darel", "Daren", "Dariel", "Darius", "Darnell", "Darrel", "Darrell", "Darren", "Darrick", "Darrin", "Darrol", "Darryl", "Darryle", "Darryn", "Darwin", "Daryl", "Dave", "Daves", "David", "Davie", "Davis", "Davor", "Davy", "Dayle", "Dean", "Deandre", "Deane", "Dedrick", "Deepak", "Delano", "Delbert", "Deleon", "Delmar", "Delmer", "Delvoy", "De'Lyle", "Demetre", "Demetri", "Demetris", "Demetrius", "Demos", "Dempsey", "Denis", "Dennis", "Denny", "Denton", "Denver", "Denvil", "Deonte", "Derek", "Derrick", "Derrill", "Desmond", "Detris", "Dewan", "Deward", "Dewayne", _
"Edgardo", "Edi", "Edie", "Edmond", "Edmund", "Edmundo", "Edrey", "Edrin", "Eduard", "Eduardo", "Edward", "Edwin", "Efrain", "Einar", "Elbert", "Elbio", "Elburn", "Eldon", "Eldrege", "Elgin", "Eli", "Elias", "Eliezer", "Eliseo", "Elkin", "Ellery", "Ellian", "Elliot", "Elliott", "Ellis", "Elmer", "Elmo", "Eloy", "Eloys", "Elpidio", "Elroy", "Elton", "Elvin", "Elvis", "Elwin", "Elwood", "Emanuel", "Emerson", "Emery", "Emil", "Emilio", "Emmanuel", "Emmert", "Emmertt", "Emmett", "Emmitt", "Engelbert", "Englon", "Enice", "Enos", "Enrique", "Eon", "Ephrem", "Epi", "Eriberto", "Eric", "Erich", "Erick", "Erik", "Erl", "Ernest", "Ernesto", "Ernie", "Errol", "Erskin", "Ert", "Ervan", "Erven", "Ervin", "Erwin", "Essell", "Estanislado", "Eugene", "Eugenio", "Eulalio", "Evan", "Evans", "Everett", "Everette", "Evert", "Evgeny", "Evin", "Ewen", "Eymar"

Cells(lngCounter, "C").Value = "Mr."

Case Else

Case "Abbe", "Abbie", "Abby", "Abelina", "Aberdeen", "Aberta", "Abie", "Abigail", "Abii", "Acelia", "Ada", "Adaline", "Adamae", "Adamy", "Adasha", "Addie", "Adeana", "Adela", "Adele", "Adelheid", "Adeline", "Adell", "Adelle", "Adile", "Adiline", "Adina", "Aditha", "Adlean", "Adline", "Adlyn", "Adnes", "Adonica", "Adoracian", "Adoreen", "Adria", "Adriana", "Adriane", "Adrianne", "Adriena", "Adrienne", "Ady", "Aeraca", "Agapipa", "Agapita", "Agathe", "Aggie", "Aglecia", "Agnes", "Agnus", "Aicha", "Aida", "Aiessa", "Aileen", "Ailsa", "Aimee", "Aimiee", "Aio", "Aishia", "Akimi", "Alaiya", "Alana", "Alane", "Alanis", "Alanna", "Alba", "Alberta", "Albertha", "Albertine", "Albina", "Alcea", "Alcie", "Aldene", "Aldie", "Aldine", "Alea", "Aleai", "Alecta", "Aleen", "Aleesha", "Alejandra", "Aleloise", "Alena", "Alessa", "Aleta", "Aletha", "Aletra", "Alexandra", "Alexandria", "Alexis", _
"Beverley", "Beverly", "Beverlyn", "Bey", "Bhavna", "Bianca", "Bietty", "Biljana", "Billi", "Billie Jo", "Billiejo", "Bina", "Binni", "Birdie", "Birgit", "Blanca", "Blanch", "Blanche", "Blanka", "Blazia", "Blessing", "Bobbi", "Bobbie Ann", "Bobbie Jean", "Bobbie Sue", "Bobette", "Bona", "Bonita", "Bonnie", "Bonny", "Boya", "Bozena", "Branda", "Brandee", "Brandi", "Brandy", "Bre", "Breauna", "Bree", "Brenda", "Breta", "Brettlyn", "Bria", "Brianna", "Bridget", "Bridgett", "Bridgette", "Briemone", "Brigetta", "Brigitte", "Brinnaria", "Brittany", "Brook", "Brooke", "Brooklyn", "Brooxie", "Bruna", "Brunhilde", "Buena", "Buffy", "Bunny", "Burnette", "Bushra", _
"Caitlin", "Cali", "Callie", "Cameal", "Camil", "Camile", "Camilla", "Camille", "Camillia", "Cammie", "Candace", "Candee", "Candelaria", "Candi", "Candice", "Candis", "Candise", "Candith", "Candra", "Candy", "Cara", "Carale", "Caralea", "Caramelita", "Caren", "Carey", "Cari", "Carianne", "Carissa", "Carla", "Carlatta", "Carle", "Carlee", "Carlena", "Carlene", "Carlessia", "Carleta", "Carletha", "Carletta", "Carlota", "Carlotta", "Carlous", "Carly", "Carlye", "Carma", "Carmel", "Carmela", "Carmelia", "Carmella", "Carmen", "Carmon", "Carol", "Carolann", "Carole", "Carolee", "Carolina", "Caroline", "Caroll", "Carolle", "Carolyn", "Carolyne", "Carolynn", "Carri", "Carrie", "Carroll", "Carutha", "Cary", "Caryl", "Caryn", "Casandra", "Cass", "Cassandra", "Cassidy", "Cassie", "Cassy", _
"Diana", "Diane", "Dichelle", "Diedre", "Diep", "Dimetria", "Dimitroula", "Dimple", "Dinah", "Dinda", "Dione", "Dionne", "Doloros", "Domenica", "Dominga", "Domita", "Donna", "Donnetta", "Dora", "Doreene", "Doretta", "Doreva", "Doria", "Dorian", "Dorice", "Doris", "Dororthy", "Dorota", "Doroth", "Dorotha", "Dorothy", "Doroty", "Dorrie", "Dory", "Dotsy", "Dottie", "Dotty", "Doty", "Drinda", "Druanne", "Dulcie", "Dunita", "Durla", "Durline", "Dwendolyn", "Dwila", "Dyann", _
"Elyse", "Emelinda", "Emeline", "Emelita", "Emilia", "Emilie", "Emily", "Emma", "Emogene", "Emy", "Enedina", "Enez", "Engelina", "Engracia", "Enid", "Enola", "Eraca", "Erica", "Ericka", "Erika", "Erin", "Erlene", "Erlina", "Erlinda", "Erma", "Ermadene", "Erna", "Ernestina", "Ernestine", "Erodeta", "Ertha", "Esmeralda", "Esperanza", "Essie", "Estela", "Estella", "Estelle", "Ester", "Esterina", "Estha", "Esther", "Estor", "Estrella", "Etelvina", "Etha", "Ethel", "Ethelene", "Ethell", "Ether", "Etta", "Eucline", "Eudia", "Eudoxie", "Eugenia", "Eula", "Eulalia", "Eulma", "Eunice", "Euodia", "Ev", "Eva", "Eva-Marie", "Evanell", "Evangeline", "Eve", "Evelin", "Eveline", "Evell", "Evelyln", "Evelyn", "Eve-Lyn", "Evelyne", "Evelynn", "Evelynne", "Evena", "Evette", "Evie", "Evon", "Evonna", "Evonne", "Evony", "Evy", "Ewa", "Exa", "Eyglo", "Ezzie"

Cells(lngCounter, "C").Value = "Ms."

Case Else
Cells(lngCounter, "C").Value = vbNullString

End Select

Next lngCounter

End Sub