res will be a value, like 36, or "BOB", not a range object, so
Range(res).Select doesn't work. You can do this:
On Error Resume Next
res = Application.HLookup(MyVal, table, 2, False)
Set ans = table.Offset(1).Resize(1, table.Columns.Count).Find(res)
If Err.Number < 0 then
Msgbox "Not Found"
Else
ans.Select
End If

"caroline" wrote:

I am trying to find a value and then select the cell found.
the following does not work because of "range(res).select"
any idea? Thanks
(I am not using the Find function because the range "table" includes
functions)

Dim res As Variant
Dim table As Range
Dim myVal As Range
Set myVal = Range("LastQTR")
Set table = Range("table")

res = Application.HLookup(myVal, table, 2, False)
If IsError(res) Then
MsgBox "not found"
Else
range(res).select

End If
--
caroline