VBA関数はメインサブに戻ってこない

Question

私はこれを理解しようとしています。私のメインサブでは、私は関数を呼び出します。どういうわけか、それはその機能の終了時に私の走りを終わらせました。 "Before end"と表示されず、 "I made it"と表示されません。

Sub Main() 
     call CopyAndDelete() 
     msgbox "I made it out" 
End Sub 

Function CopyAndDelete() 
Dim CopyFromWB As Workbook 
Dim CopyToWB As Workbook 
Dim wb As Workbook 
Dim CopyThisWS As Worksheet 
Dim ws As Worksheet 
Dim Path As String 
Dim FileName As String 

Application.DisplayAlerts = False 

Set CopyToWB = Workbooks("test.xlsm") 
CopyToWB.Activate 

For Each ws In ActiveWorkbook.Sheets 
    Select Case ws.Name 
     Case "A" 
      ws.Delete 
     Case "B" 
      ws.Delete 
     Case "C" 
      ws.Delete 
     Case "D" 
      ws.Delete 
    End Select 
Next ws 

Path = Application.GetOpenFilename(Title:="choose a file") 
FileName = Right(Path, Len(Path) - InStrRev(Path, "\")) 
For Each wb In Workbooks 
    If wb.Name = FileName Then 
     Workbooks(FileName).Close 
    End If 
Next wb 

Set CopyFromWB = Workbooks.Open(Path) 
Set CopyThisWS = CopyFromWB.Worksheets(1) 
CopyThisWS.Copy After:=CopyToWB.Worksheets(1) 
ActiveSheet.Name = "New A" 
CopyFromWB.Close 

Application.DisplayAlerts = True 

MsgBox "Before end" 

End Function 

Answer 1

これは動作します：

Sub Main() 
    Call CopyAndDelete 
    MsgBox "I made it out" 
End Sub 

Function CopyAndDelete() 
    MsgBox "Before end" 
End Function 

をので、おそらくあなたは、あなたがマクロを呼び出したときにあったワークシートを閉じていますか？マクロは、モジュールに追加する必要がありますし、多分それはpublicとして宣言された関数で標準テンプレート内のモジュールにする必要があります：

Sub Main() 
    Call CopyAndDelete 
    MsgBox "I made it out" 
End Sub 

Public Function CopyAndDelete() 
    ... your rest of the code ... 
    MsgBox "Before end" 
End Function 

第H、