EXCEL html table = セルをHTMLのtableに変換するAddin

以下を発見。
Excelにて、セルをHTMLのtableに変換するアドインです。
とっても便利で、ありがたく利用させてもらいます。
ソースが公開されているので、私は、保存場所を選べるようにカスタマイズして使ってます。
修正内容は続きで。。

セルをHTMLのtableに変換するAddin
作者：so_blueさん

【ファイル保存をカスタマイズ】
・自分のPCのデスクトップが汚すぎて、せっかく保存してもファイルが見つからない･･･
⇒保存先のデフォルトをマイドキュメントへ
・毎回のファイル名で、日付のほかに自分にわかるキーワードを追加して保存したい
⇒「名前をつけて保存」の窓が出るように修正

＜so_blueさんのオリジナル 85行目くらい＞

'htmlファイル名 ※デスクトップのPath + yyyymmddhhmmss + .html
strFName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & _
            "\" & Format$(Now, "yyyymmddhhmmss") & ".html"

＜以下に修正＞

'マイドキュメントへ移動
ChDir CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
'ファイル名選択窓を表示
Dim Ret As Variant
Ret = Application.GetSaveAsFilename( _
          InitialFileName:=Format$(Now, "yyyymmddhhmmss") & ".html", _
          fileFilter:="Webページ (*.html), *.html")

If Ret = False Then
    GoTo Finally 'キャンセルで抜ける
Else
    strFName = Ret
End If