Oscar Sun

                  On Error GoTo eH

Exit Sub
eH:
Select Case Err.Number
    Case 591 '集合中成員不存在
    Case Else
        Debug.Print Err.Number & Err.Description
        MsgBox Err.Number & Err.Description, vbCritical
'        Stop
'        Resume
End Select