Found = ""
For Each cell In Rng
'The following formula works in Excel
'nFound = left(B6,if(iserror(Find(" 3.",B6)),0,Find(" 3.",B6)))
'
' However, all my syntax variations to adapt it in VBA do not work.
Can you help me
'
nFound = "=left(cell.value,if iserror(Find(' 3.',cell.value)),
0,Find(' 3.',cell.value))"
If nFound <> Found Then
'Copy Row ........
Found = nFound
End If
Next cell
'
Help appreciated.

Look at VBA's help for InStr. It's the VBA equivalent of Excel's =Find()/=Search().



On 11/24/2010 19:37, u473 wrote:
> Found = ""
> For Each cell In Rng
> 'The following formula works in Excel
> 'nFound = left(B6,if(iserror(Find(" 3.",B6)),0,Find(" 3.",B6)))
> '
> ' However, all my syntax variations to adapt it in VBA do not work.
> Can you help me
> '
> nFound = "=left(cell.value,if iserror(Find(' 3.',cell.value)),
> 0,Find(' 3.',cell.value))"
> If nFound<> Found Then
> 'Copy Row ........
> Found = nFound
> End If
> Next cell
> '
> Help appreciated.

--
Dave Peterson