显式的选项 - 标签（错误处理程序转到页）无法识别

Question

我做了一个UDF，与Option Explicit模块中非常简单，我已经上了标签的使用为目标进行错误处理的错误：

编译错误：子或函数定义

下面是代码：

Public Function IsRowEmpty(ByVal aArray As Variant, ByVal RowNumber As Long) As Boolean 
Dim j As Integer 
    IsRowEmpty = True 
    On Error GoTo ErrHdl: 
    For j = LBound(aArray, 2) To UBound(aArray, 2) 
     If aArray(RowNumber, j) <> "" Then 
      IsRowEmpty = False 
      Exit Function 
     Else 
     End If 
    Next j 
Exit Function 
ErrHdl 
    IsRowEmpty = False 
End Function 

我环顾四周，但我似乎无法找到一个解决办法...

Answer 1

你缺少一个:的ErrHdl标签

Public Function IsRowEmpty(ByVal aArray As Variant, ByVal RowNumber As Long) As Boolean 
    Dim j As Integer 
    IsRowEmpty = True 
    On Error GoTo ErrHdl 
    For j = LBound(aArray, 2) To UBound(aArray, 2) 
     If aArray(RowNumber, j) <> "" Then 
      IsRowEmpty = False 
      Exit Function 
     Else 
     End If 
    Next j 
Exit Function 
ErrHdl: 
    IsRowEmpty = False 
End Function