Try something like

On Error Resume Next
iNum = Application.HLookup(sh.Name,
WorkSheetSelectForm.SheetExcludeArray, 2, False)
On Error Goto 0
If iNum < 0 Then
'...
--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"ExcelMonkey" wrote in message
...
I have a line of code that is failing due to a Run Time Error 13 Type
Mismatch. The code is as following:

If Application.HLookup(sh.Name, WorkSheetSelectForm.SheetExcludeArray, 2,
False) = 0 Then

Now I know why its failing. The term sh.Name does not exisit in the Array
that I am performing the Hlookup on. However, I need to warp error
handling
around this so that the code will progress. I have tried wrapping a
ISERROR
stmt around it to generate a boolean as a start. But I cannot get this to
work. When I do the following below in the Immediate Window I get a "Run
Time Error 1001Unable to get the Hlookup Property of the Worksheet
Function
class"

?ISERROR(Application.worksheetfunction.HLookup(sh. Name,
WorkSheetSelectForm.SheetExcludeArray, 2, False) = 0)

What can I do in order to error handle this?

Thanks