2017/09/09(sat) RelaxTools-Addin Version 4.14.0(RustRemover)

◇お知らせ・2017年10月10日にExcel2007のサポートが切れる予定のため　今バージョンよりExcel2007非対応になります。 ◇新規機能・右クリックメニューのカスタマイズが可能になりました。　RelaxToolsのほぼ全ての機能を右クリックメニューに割り当てることが可能です。・SIer向けの「ブックの静的チェック」を追加。以下のチェックができるようになります。　「シート：Sheet1、Sheet2 などの名前が無いことをチェックする。」　「シート：使用されていないシートが無いことをチェックする。」　「シート：非表示のシートが無いことをチェックする。」　「リンク：他ブックへの参照が無いことをチェックする。」　「式　　：式のエラーが無いことをチェックする。」　「式　　：式が存在し無いことをチェックする。」　「セル　：結合されたセルが無いことをチェックする。」　「列　　：非表示列が無いことをチェックする。」　「行　　：非表示行が無いことをチェックする。」　「お作法：カーソルがＡ１に設定されているかチェックする。」　「お作法：シートの倍率が１００％に設定されているかチェックする。」　「お作法：表示スタイルが標準ビューに設定されているかチェックする。」 ◇バグ修正・選択メニュー「値セル」が機能していなかった不具合を修正 ◇機能改善・バージョン情報、Webページへのリンク等の情報ページをファイルメニュー（バックステージビュー）に移動。
RelaxTools · Sep 9, 2017 · 0cd83d1 · 0cd83d1
1 parent 7dd8c17
commit 0cd83d1
Show file tree

Hide file tree

Showing 196 changed files with 1,932 additions and 704 deletions.
diff --git a/README.md b/README.md
@@ -1,6 +1,6 @@
-# RelaxTools Addin For Excel 2007/2010/2013/2016 
+# RelaxTools Addin For Excel 2010/2013/2016 
 *対応OS: Windows Vista, Windws 7, Windows 8, Windows 8.1, Windows 10(macには対応していません)
-*対応Excel: 2007, 2010, 2013, 2016
+*対応Excel: 2010, 2013, 2016
 
 各種変換、編集、検索などの機能追加を行うツールです。
 Copyright(C) Yasuhiro Watanabe 2009

diff --git a/README.txt b/README.txt
@@ -1,6 +1,6 @@
-# RelaxTools Addin For Excel 2007/2010/2013/2016 
+# RelaxTools Addin For Excel 2010/2013/2016 
 *対応OS: Windows Vista, Windws 7, Windows 8, Windows 8.1, Windows 10(macには対応していません)
-*対応Excel: 2007, 2010, 2013, 2016
+*対応Excel: 2010, 2013, 2016
 
 各種変換、編集、検索などの機能追加を行うツールです。
 Copyright(C) Yasuhiro Watanabe 2009

diff --git a/RelaxTools.xlam b/RelaxTools.xlam
diff --git a/Source/RelaxTools.xlsm b/Source/RelaxTools.xlsm
diff --git a/Source/customUI/_rels/customUI.xml.rels b/Source/customUI/_rels/customUI.xml.rels
diff --git a/Source/customUI/customUI.xml b/Source/customUI/customUI.xml
@@ -120,8 +120,9 @@
 
         </group>
         <group id="edit" label="チェック/編集/変換" image="edit">
-          <box id="boxCheckEdit" boxStyle="vertical">
-            <menu id="checkMenu" label="チェック" image="check32" itemSize="large" getSupertip="getSupertip" getDescription="getDescription" getEnabled="getRibbonEnabled">
+            <menu id="checkMenu" label="チェック&#xD;&#xA;" image="check32" size="large" itemSize="large" getSupertip="getSupertip" getDescription="getDescription" getEnabled="getRibbonEnabled">
+              <menuSeparator id="checkSep07" title="ブックの静的チェック"/>
+              <button id="showStaticCheck"          image="check32" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction" />
               <menuSeparator id="checkSep01" title="数を数える"/>
               <button id="execSelectionCheckCount"          image="check32" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction" />
               <button id="execSelectionCheckSize"           image="check32" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction" />
@@ -155,7 +156,8 @@
                 <button id="execSelectionCheckModulus11_2_7"  image="check32" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction" />
               </menu>
             </menu>
-            <menu id="editMenu" label="編集" itemSize="large" getSupertip="getSupertip" getDescription="getDescription" image="edit32" getEnabled="getRibbonEnabled">
+          <separator id="editSep"/>
+            <menu id="editMenu" label="編集&#xD;&#xA;" size="large" itemSize="large" getSupertip="getSupertip" getDescription="getDescription" image="edit32" getEnabled="getRibbonEnabled">
               <menuSeparator id="editSep01" title="行の追加/複製/削除"/>
               <button id="lineInsert"  image="InsertLine" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction"/>
               <menuSeparator id="editSep02"/>
@@ -215,7 +217,6 @@
                 <button id="execSelectionRemoveRightToChar"  image="bottomDel" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction"/>
               </menu>
             </menu>
-          </box>
           <separator id="convSep"/>
           <box id="box31" boxStyle="vertical">
             <menu id="convert" label="文字・日付"  itemSize="large"        image="firstUpper" getSupertip="getSupertip" getDescription="getDescription" getEnabled="getRibbonEnabled">
@@ -653,21 +654,26 @@
           </menu>
           <box id="boxHelpBug" boxStyle="horizontal">
             <menu id="helpMenu" label="ヘルプ"   itemSize="large" getSupertip="getSupertip" getDescription="getDescription" image="help32">
+<!--
               <menuSeparator id="helpSep04" title="Webサイト"/>
               <button id="GotoOfficialWeb" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" image="web" onAction="ribbonOnAction" />
               <button id="GotoGitHub" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" image="web" onAction="ribbonOnAction" />
               <button id="GotoCampaign" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" image="web" onAction="ribbonOnAction" />
+-->              
               <menuSeparator id="helpSep02" title="ヘルプ"/>
               <button id="callHelp" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription" image="help32" onAction="ribbonOnAction" />
+<!--
               <menuSeparator id="helpSep03" title="バージョン"/>
               <button id="dispVer" getLabel="getLabel" getSupertip="getSupertip" getDescription="getDescription"  image="information" onAction="ribbonOnAction" />
+-->              
             </menu>
-            <button id="showReport"   image="bug" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction"/>
           </box>
         </group>
+<!--
         <group id="cmGroup" label="CM" image="fcs">
          <button id="showFCS"   image="fcs" label="FCS&#xD;&#xA;Web" size="large" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction"/>
         </group>
+-->              
 
       </tab>
       <tab id="RelaxShapesTab" label="RelaxShapes" getVisible="tabGetVisible">
@@ -999,13 +1005,15 @@
         <group id="InformationGroup" label="その他" image="countpage">
           <button id="encryptionFileEx" size="large" image="Encrypt"  label="ファイルの&#xD;&#xA;難読化" getSupertip="getSupertip" getDescription="getDescription" onAction="ribbonOnAction" />
           <button id="excelPage" image="countpage" size="large" label="Word/Excel/PP&#xD;&#xA;ページ数取得" getSupertip="getSupertip" getDescription="getDescription"  onAction="ribbonOnAction" />
+<!--
           <splitButton id="sushiSplit" size="large" getEnabled="getRibbonEnabled" getVisible="sushiGetVisible">
             <toggleButton id="sushiShow" image="sushi" label="スシを&#xD;&#xA;流す" supertip="スシをExcelの周囲に流します。" description="スシをExcelの周囲に流します。" getPressed="sushiPressed" onAction="sushiOnAction"/>
             <menu id="sushiMenu"  itemSize="large" >
               <menuSeparator id="sushiSep01" title="スシ設定" />
               <button id="sushiSetting" image="gear32" label="スシ設定" supertip="スシを流す設定です。" description="スシを流す設定です。" getEnabled="getSushiEnabled" onAction="ribbonOnAction"/>
             </menu>
           </splitButton>
+-->
         </group>
 
       </tab>
@@ -1086,6 +1094,101 @@
       </tab>
     </tabs>
   </ribbon>
+
+  <backstage onHide="OnHide">
+    <tab id="tabRelaxtools" label="RelaxTools Addin について" title="RelaxTools Addin について" visible="true">
+      <firstColumn>
+        <group id="grpRelaxtools1" label="バージョン情報" visible="true">
+          <topItems>
+            <layoutContainer id="layoutLogo" layoutChildren="horizontal">
+              <imageControl id="imgLogo" image="logo" />
+              <imageControl id="imgmadoprize" image="madoprize" />
+            </layoutContainer>
+            <labelControl id="lblVersion" getLabel="getVersion" />
+          </topItems>
+
+        </group>
+
+        <group id="grpRelaxtools2" label="ダウンロード" helperText="GitHubまたは窓の杜よりダウンロードが可能です" visible="true">
+          <topItems>
+            <layoutContainer id="layoutDwn" layoutChildren="horizontal">
+             <button id="GotoRelease" label="GitHub" image="github" style="large" onAction="ribbonOnAction" />
+             <button id="GotoMado" label="窓の杜" image="mado" style="large" onAction="ribbonOnAction" />
+<!--
+            <labelControl id="lblDownload" label="GitHubよりダウンロードが可能です。" />
+-->
+            </layoutContainer>
+          </topItems>
+        </group>
+
+
+        <group id="grpRelaxtools3" label="Webサイト" helperText="使い方などの情報はこちら" visible="true">
+          <topItems>
+            <layoutContainer id="layoutWeb" layoutChildren="horizontal">
+              <button id="GotoOfficialWeb" label="公式サイト"  image="web" style="large" onAction="ribbonOnAction" />
+              <button id="GotoGitHub"      label="GitHub"  image="github" style="large" onAction="ribbonOnAction" />
+              <button id="GotoCampaign"    label="カンパの&#xD;&#xA;お願い" image="web" style="large" onAction="ribbonOnAction" />
+            </layoutContainer>
+          </topItems>
+        </group>
+
+        <group id="grpRelaxtools4" label="お問い合わせ・要望など" helperText="バグ情報をお寄せください" visible="true">
+          <topItems>
+            <layoutContainer id="layoutBug" layoutChildren="horizontal">
+              <button id="showReport" label="バグ報告"  image="bug" style="large" onAction="ribbonOnAction"/>
+              <button id="GotoBBS"    label="掲示板"  image="web" style="large" onAction="ribbonOnAction" />
+              <button id="GotoIssue"  label="GitHub Issue"  image="github" style="large" onAction="ribbonOnAction" />
+              <button id="GotoMail"   label="メール" imageMso="MailMergeStartEmail" style="large" onAction="ribbonOnAction" />
+            </layoutContainer>
+          </topItems>
+        </group>
+
+        <group id="grpRelaxtools5" label="ライセンス情報" helperText="ソースの利用はMITライセンスです" visible="true">
+          <topItems>
+          <labelControl id="lblLisence01" getLabel="getLisence1" />
+          <labelControl id="lblLisence02" getLabel="getLisence2" />
+          </topItems>
+        </group>
+
+        <group id="grpRelaxtools6" label="Do you like Sushi?" helperText="Excel作業に疲れたら回すやつ" visible="true">
+          <topItems>
+            <layoutContainer id="layoutSushi" layoutChildren="horizontal">
+              <button id="sushiShow" image="sushi" label="Let's&#xD;&#xA;Party!" style="large" onAction="sushiOnAction"/>
+              <button id="sushiStop" imageMso="CancelRequest" label="Party is&#xD;&#xA;Over!" style="large" onAction="sushiOnAction"/>
+              <button id="sushiSetting" image="gear32" label="Setting" style="large" onAction="sushiOnAction"/>
+            </layoutContainer>
+          </topItems>
+        </group>
+
+
+      </firstColumn>
+      <secondColumn>
+        <group id="grpfcs1" label="福島コンピューターシステム株式会社" helperText="RelaxToolsの中の人が勤めている会社です。お仕事ください" visible="true">
+          <topItems>
+            <layoutContainer id="layoutFCS01" layoutChildren="vertical">
+              <imageControl id="imgfcs" image="fcspic" />
+            </layoutContainer>
+          </topItems>
+        </group>
+        <group id="grpfcs2" label="企業理念" helperText="Future,Challenge,Success" visible="true">
+          <topItems>
+            <layoutContainer id="layoutFCS02" layoutChildren="vertical">
+              <labelControl id="lblFCS01" label="福島コンピューターシステムは、「福島復興」と「第4次産業革命」に貢献する、" />
+              <labelControl id="lblFCS02" label="より品質の高いコンピューターシステムの“効率的な開発”と“安定した運用管理”に努めてまいります。" />
+              <labelControl id="lblFCS03" label="そのために、社員の能力の開発・向上に積極的に取り組み、各自の成長を支援いたします。" />
+            </layoutContainer>
+          </topItems>
+        </group>
+        <group id="grpfcs3" label="Webサイト" visible="true">
+          <topItems>
+            <layoutContainer id="layoutFCS03" layoutChildren="vertical">
+              <button id="GotoFCS"   image="fcs" label="公式サイト" style="large" onAction="ribbonOnAction"/>
+            </layoutContainer>
+          </topItems>
+        </group>
+      </secondColumn>
+    </tab>
+  </backstage>    
   <contextMenus>
     <contextMenu idMso="ContextMenuCell">
       <dynamicMenu   id="ContextMenuCell"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
@@ -1099,10 +1202,18 @@
       <dynamicMenu   id="ContextMenuRow"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
       <menuSeparator id="ContextMenuRowSep" insertBeforeMso="Cut" />
     </contextMenu>
+    <contextMenu idMso="ContextMenuRowLayout">
+      <dynamicMenu   id="ContextMenuRowLayout"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
+      <menuSeparator id="ContextMenuRowLayoutSep" insertBeforeMso="Cut" />
+    </contextMenu>
     <contextMenu idMso="ContextMenuColumn">
       <dynamicMenu   id="ContextMenuCol"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
       <menuSeparator id="ContextMenuColSep" insertBeforeMso="Cut" />
     </contextMenu>
+    <contextMenu idMso="ContextMenuColumnLayout">
+      <dynamicMenu   id="ContextMenuColLayout"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
+      <menuSeparator id="ContextMenuColLayoutSep" insertBeforeMso="Cut" />
+    </contextMenu>
     <contextMenu idMso="ContextMenuShape">
       <dynamicMenu   id="ContextMenuShape"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
       <menuSeparator id="ContextMenuShapeSep" insertBeforeMso="Cut" />
@@ -1111,5 +1222,11 @@
       <dynamicMenu   id="ContextMenuPicture"    insertBeforeMso="Cut" label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
       <menuSeparator id="ContextMenuPictureSep" insertBeforeMso="Cut" />
     </contextMenu>
+    <!-- シートタブは下表示 -->
+    <contextMenu idMso="ContextMenuWorkbookPly">
+      <menuSeparator id="ContextMenuWorkbookPlySep"  />
+      <dynamicMenu   id="ContextMenuWorkbookPly"     label="RelexTools Addin" image="relaxico"  getVisible="contextMenus_GetVisible" getContent="contextMenus_GetContent" />
+    </contextMenu>
   </contextMenus>
+
 </customUI>
diff --git a/Source/customUI/images/LegendHS.png b/Source/customUI/images/LegendHS.png
diff --git a/Source/customUI/images/fcspic.png b/Source/customUI/images/fcspic.png
diff --git a/Source/customUI/images/logo.png b/Source/customUI/images/logo.png
diff --git a/Source/customUI/images/madonomori.png b/Source/customUI/images/madonomori.png
diff --git a/Source/customUI/images/madoprize.png b/Source/customUI/images/madoprize.png
diff --git a/Source/src/Class/GitLib.cls b/Source/src/Class/GitLib.cls
@@ -7,6 +7,35 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
+'-----------------------------------------------------------------------------------------------------
+'
+' [RelaxTools-Addin] v4
+'
+' Copyright (c) 2009 Yasuhiro Watanabe
+' https://github.com/RelaxTools/RelaxTools-Addin
+' author:relaxtools@opensquare.net
+'
+' The MIT License (MIT)
+'
+' Permission is hereby granted, free of charge, to any person obtaining a copy
+' of this software and associated documentation files (the "Software"), to deal
+' in the Software without restriction, including without limitation the rights
+' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+' copies of the Software, and to permit persons to whom the Software is
+' furnished to do so, subject to the following conditions:
+'
+' The above copyright notice and this permission notice shall be included in all
+' copies or substantial portions of the Software.
+'
+' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+' SOFTWARE.
+'
+'-----------------------------------------------------------------------------------------------------
 'Option Explicit
 '
 'Function Commit(ByVal strBook As String, ByVal strMessage As String) As String

diff --git a/Source/src/Class/MenuDTO.cls b/Source/src/Class/MenuDTO.cls
@@ -7,6 +7,35 @@ Attribute VB_GlobalNameSpace = False
 Attribute VB_Creatable = False
 Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = False
+'-----------------------------------------------------------------------------------------------------
+'
+' [RelaxTools-Addin] v4
+'
+' Copyright (c) 2009 Yasuhiro Watanabe
+' https://github.com/RelaxTools/RelaxTools-Addin
+' author:relaxtools@opensquare.net
+'
+' The MIT License (MIT)
+'
+' Permission is hereby granted, free of charge, to any person obtaining a copy
+' of this software and associated documentation files (the "Software"), to deal
+' in the Software without restriction, including without limitation the rights
+' to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+' copies of the Software, and to permit persons to whom the Software is
+' furnished to do so, subject to the following conditions:
+'
+' The above copyright notice and this permission notice shall be included in all
+' copies or substantial portions of the Software.
+'
+' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+' OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+' SOFTWARE.
+'
+'-----------------------------------------------------------------------------------------------------
 Option Explicit
 
 Public Category As String

diff --git a/Source/src/Class/SelectionAddItemNo.cls b/Source/src/Class/SelectionAddItemNo.cls
@@ -138,7 +138,7 @@ Private Sub SFWork_SelectionMain(r As Range, ByVal NotHoldFormat As Boolean, Can
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 
 End Sub

diff --git a/Source/src/Class/SelectionAddSectionNo.cls b/Source/src/Class/SelectionAddSectionNo.cls
@@ -186,7 +186,7 @@ pass:
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 
 End Sub

diff --git a/Source/src/Class/SelectionAllIndent.cls b/Source/src/Class/SelectionAllIndent.cls
@@ -88,7 +88,7 @@ Private Sub SFWork_SelectionMain(r As Range, Cancel As Boolean)
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 
 End Sub

diff --git a/Source/src/Class/SelectionAllIndentClear.cls b/Source/src/Class/SelectionAllIndentClear.cls
@@ -78,7 +78,7 @@ Private Sub SFWork_SelectionMain(r As Range, Cancel As Boolean)
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 
 End Sub

diff --git a/Source/src/Class/SelectionAllSelectEmptyCell.cls b/Source/src/Class/SelectionAllSelectEmptyCell.cls
@@ -85,7 +85,7 @@ Private Sub SFWork_SelectionMain(r As Range, Cancel As Boolean)
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 End Sub
 
@@ -101,6 +101,6 @@ Private Sub SFWork_SelectionTerm()
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
 End Sub
 
diff --git a/Source/src/Class/SelectionCheckAlphaAndNum.cls b/Source/src/Class/SelectionCheckAlphaAndNum.cls
@@ -92,7 +92,7 @@ Private Sub SFWork_SelectionMain(r As Range, ByVal NotHoldFormat As Boolean, Can
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 End Sub
 
@@ -114,5 +114,5 @@ Private Sub SFWork_SelectionTerm()
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
 End Sub
diff --git a/Source/src/Class/SelectionCheckAlphabet.cls b/Source/src/Class/SelectionCheckAlphabet.cls
@@ -92,7 +92,7 @@ Private Sub SFWork_SelectionMain(r As Range, ByVal NotHoldFormat As Boolean, Can
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
     Cancel = True
 End Sub
 
@@ -115,5 +115,5 @@ Private Sub SFWork_SelectionTerm()
 
     Exit Sub
 e:
-    Call rlxErrMsg(err)
+    Call rlxErrMsg(Err)
 End Sub