res = Application.Evaluate(myFormula)
If IsError(res) Then
'do nothing
Else
.Offset(0, 6).Value = SourceWks.Cells(res, 7).Value
End If

(Drop the BringBack completely--even the Dim statement.)

But I think Tim's suggestion should have worked.

Here's his code slightly reformatted.

res = Application.Evaluate(myFormula)
if not iserror(res) then
.Offset(0, 6).Value = SourceWks.Cells(res,7).Value
end if


Michael A wrote:

well.. that didn't work. Now it poplulates with all the information from the
previous page instead of the select information.. i have tried messing with
it to the bets of my abilities..now i need an expert..

"Michael A" wrote:

Tim, i am extremely new to VB, chances are it is this easy..

"Tim Coddington" wrote:

res = Application.Evaluate(myFormula)
if not iserror(res) then .Offset(0, 6).Value = SourceWks.Cells(res,
7).Value

Could what you are asking be this simple or am I missing something?
-Tim

"Michael A" wrote in message
...
Hey dave, on this code you helped me out with yesterday, I was wondering
you
could help me modify it.. instead of it displaying "no match" in the cell,
I
would like it to leave the cell untouched, and only change the cell if
there
is a match.. i have been messing with it and cant figure it out..
If I have it return "" then it deletes over whatever else was there..

res = Application.Evaluate(myFormula)
If IsError(res) Then
BringBack = " no match "
Else
BringBack = SourceWks.Cells(res, 7).Value
End If
.Offset(0, 6).Value = BringBack
End With




--

Dave Peterson