Find, Error Trap (Excel 2010 VBA)

[lloydgodin]

I am trying to trap an error where the Value of hcpc(i) is not found on the data sheet. Partial code is below.

                Set rngFound = lookupsht.Range("A1:H1257").Find(hcpc(i), , , xlWhole)
                          ruv(i) = rngFound.Offset(, 1).Value

I tried this:

                Set rngFound = lookupsht.Range("A1:H1257").Find(hcpc(i), , , xlWhole)
                If ruv(i) = rngFound.Offset(, 1).Value Is Empty Then
                    feevalue(i) = 0
                    descrip(i) = "Unidentifiable Charge"
                    reason(i) = "HCPC Code Not Found in Fee Schedule"
                Else
                    ruv(i) = rngFound.Offset(, 1).Value

[JosephP]

                Set rngFound = lookupsht.Range("A1:H1257").Find(hcpc(i), , , xlWhole)
                If rngFound is nothing then
                    feevalue(i) = 0
                    descrip(i) = "Unidentifiable Charge"
                    reason(i) = "HCPC Code Not Found in Fee Schedule"
                Else
                    ruv(i) = rngFound.Offset(, 1).Value

[StevenM]

Perhaps:

Set rngFound = lookupsht.Range("A1:H1257").Find(HCPC(i), , , xlWhole)
If rngFound Is Nothing Then
    feevalue(i) = 0
    descrip(i) = "Unidentifiable Charge"
    reason(i) = "HCPC Code Not Found in Fee Schedule"
Else
    ruv(i) = rngFound.Offset(, 1).Value
End If

[lloydgodin]

works great guys! Thank you.