事の発端

Excel からWordにグラフを複数回貼り付けるマクロを作っていたら、エラー番号465の「リモートサーバがないか、使用できる状況ではありません」というようなエラーが出るようになりました。

症状

面白いことに、マクロを実行したら2回に一回エラーが必ず出る。
なので多分、どこかでオブジェクトへの参照を解除(Set オブジェクト変数 = Nothing)を忘れているとかで出ているエラーだと思われました。しかし、原因の箇所がどうしても判明しない。

そこで、強引な解決方法を見つけたので紹介します。

Endを使います。

End Subじゃないです。Endです。
つまり・・・

Sub main()

   (・・・色んな処理・・・)

   End　　← ココ重要!!
End Sub

ということです。
これで「リモートサーバがないか、使用できる状況ではありません」というエラーがでなくなります。原因が見つからないときの一時的な応急処置としてですが。
なぜ、コレで解決するのか、自分の場合偶然でしたが、理由としては以下の通りだと思います。

Exit Sub、はsubから抜けるだけです。このsubを呼び出したprocedureに戻ります。プログラムが終了するわけではありません。
endはプログラムを終了させます。

引用元：https://okwave.jp/qa/q4093153.html
なるほど。なるほど。