＞エラー発生時にエクセルは閉じられず、
＞マクロだけ終了するのでマクロが終了する前にポートを閉じたいのですが、
＞このマクロ版みたいなのがあればいいんですけど(^_^;

実行時エラーについては、下記のようにエラーをハンドリングすることができます。
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_140_02.html

エラー処理の中でポートを閉じればいいのかなと
思っていました。

＞多分無理そうなのでポートをデータ受信するタイミングの
＞一瞬のみ開閉するプログラムへの変更を検討してみます。 

この仕様で良いのであるならば
その対処が早いですね。