VBAでのクエリとデータモデルの削除について

Question

お世話になります。

クエリを手動で削除した場合とVBAで削除した場合の挙動が異なっており、困っています。

手動で削除した場合、クエリの削除と一緒にピボットテーブルで使用しているデータモデルも削除されるのですが、以下のコードでVBAで削除した場合、クエリが削除されてもピボットテーブルで使用しているデータモデルが削除されません。

次回、VBAで再度クエリを作成すると、dmodel 1となり、その後もVBA実行のたびに dmodel 2、dmodel 3・・・と増えていってしまいます。

ついては、VBAでも手動での削除と同様の結果が得られるようお教えいただければ幸いです。

よろしくお願いいたします。

    Dim m As WorkbookQuery
    For Each m In ActiveWorkbook.Queries
        If m.Name = "dmodel" Then m.Delete
    Next