On Sun, 5 Oct 2008 13:05:14 -0500, "Don Guillett"
wrote:

Sub parsestring1()
On Error Resume Next
For Each c In Range("d3:d7")

x = InStr(c, "v") + 2
c.Offset(, 1) = Right(c, Len(c) - x)
'above for testing if OK delete and uncomment below line
'c.value = Right(c, Len(c) - x)

Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

This doesn't work if there is a "v" in the first name. e.g:

Travelers Ins v. Valerie Cohn, 2006 WL 1997425 (D.S.C. July 17, 2006)

--ron