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

<

Answer 1

Sub Macro1()
    For Row = 1 To 1000
       S = Range("A" & Row).Cells.Value
       Pos = InStr(S, Chr(34))
       If Pos > 0 Then Range("A" & Row).Cells.Value = Left(S, Pos - 1)
    Next
End Sub