delete data in cell after specific character

Question

I have data in cells A1:A1000. It is a list of names followed by a small note, like this:

• sam" fast
• nick" long
• tom" quick

They all have " and a space after the names and then the note. What I am trying to do is delete the everything after the name.

I was playing around with macros to try and do this, but could not get anything to work. Any idea how I might do this?

Answer 1

Here is a nifty trick without macros:

Select the proper range (or even just click on A to select the entire column) and then do Ctrl+F, click Replace, in Find write exactly "* and leave the Replace with box empty. Now click Replace all and tada !

It replaces everything after (and including) the quote with nothing because it uses * as a wildcard you left the replace box empty.

Edit: As suggested here is the VBA code for this:

Columns("A:A").Replace What:="""*", Replacement:="", LookAt:=xlPart