|
>>----------------------------------------------------
>><Sheet1>
>>Public Sub test()
>>On Error GoTo ERR_ROUTINE
dim sht as object
set sht=sheet2
sht.testSub
>'としもOKでした
>'因みに
'このtestsubをThisworkbookに置いたばあいも
' dim wbk as Object
' Set wbk=thisworkbook
' wbk.testsub
'でOKです。
>>
>>Exit Sub
>>ERR_ROUTINE:
>> Debug.Print Err.Description
>>End Sub
>>
>> <Sheet2>
>>Public Sub testSub()
>> Call Err.Raise(10003, , "test1")
>>End Sub
>>
>>----------------------------------------------------
>
>
これも試してみて下さい。
|
|