Hi,
Start on the Text you want to extract from, hope this helps.
Sub Macro1()
SearchText = ActiveCell.Value
FirstQuote = Application.WorksheetFunction.Find("""", SearchText, 1)
SecondQuote = Application.WorksheetFunction.Find("""", SearchText,
FirstQuote + 1)
ThirdQuote = Application.WorksheetFunction.Find("""", SearchText,
SecondQuote + 1)
FirstItem = Mid(SearchText, FirstQuote + 1, SecondQuote - FirstQuote - 1)
SecondItem = Mid(SearchText, ThirdQuote + 1, Len(SearchText) - 1)
SecondItem = Mid(SecondItem, 1, Len(SecondItem) - 1)
End Sub

Thanks,

"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