If you are SURE the cell contents is always as you described you can write a
function that splits the string on a single quote mark. (You have to use
double-up the quote mark in the delimiter string, i.e. use four quote marks
as shown below)

Dim Tmp() As String
Dim ItemDescription As String
Dim ClientName As String

Tmp = Split(StringFoundInCell, """")
ItemDescription = Tmp(1)
ClientName = Tmp(3)


"indiana1138" wrote:

Hi all,

I need to run a loop search where I find a cell in a particular column
that begins with the text, "**Item". I can do that. But when I find it,
there will be a text string of varying length inside that is bordered
by quotes, and I need to extract that string to a variable. The cell
contents will look something like this:

**Item "app04:/C/" for client "app04"

The two strings in quotes are what I need to extract. The structure of
these cells will always be the same, like:

**Item "something" for client "something"

Can anyone help? I've hit a a pothole in my brain. :)

Thanks,

Bob