Replace all names with random names

Not tested.

Please Login or Register  to view this content.

What I do is go to a random name generator (there are numerous ones on the web) and pull 100 randoms first names, then 100 random last names and stick them in a spreadsheet. Then I concatenate the First/Last into Column C. Then I have a ready supply of random names.

David,

I got a "type mismatch" on "For I = 0 To Selection.Rows"

UPDATE: I corrected it by adding ".Count" after ".Rows". Now the macro runs, but I get no results (no changes).

I also have a random name generator, which I could use to copy/paste over my column. But there are blanks in my columns, and I'd want to leave them blank. As well, I'd like some consistency in my column; if "Roger Ebert" exists 20 times in my column, I'd like whatever name replaces him in the first place to be the replacement in all the rest.

jomili,

Assuming the selection only contains names you want to replace, give this a try:

Please Login or Register  to view this content.

jomili,

Create a workbook to contain the fake names. That workbook should only have 1 sheet, and the fake names should start in A1 and go down column A with no blanks. Then use this code and update the strDummyNameFilePath to the correct file path and file name. I tested it on 48000 rows of names, and it completed in just over 41 seconds:

Please Login or Register  to view this content.

Oh, I forgot about that part, give a me a sec to update it so it will reuse the list

---------- Post added at 10:46 AM ---------- Previous post was at 10:41 AM ----------

Updated code:

Please Login or Register  to view this content.

You're very welcome