Updated the dropdown value list procedure and the copyright formatting

Author: tduguid

.gitignore

@@ -192,3 +192,4 @@ ModelManifest.xml
 /.vs/slnx.sqlite
 /.vs
 /publish/Application Files/ScriptHelp_3_0_0_2/ApiHelp.shfbproj.deploy
+/VB/packages/log4net.2.0.8

VB/Ribbon.xml

@@ -185,7 +185,7 @@
 							imageMso="Help"
 							size="large"
 							screentip="How To..."
-							supertip="This opens the read me page in GitHub with detailed instructions of the Add-In functionality."
+							supertip="This opens the read me page from the site with detailed instructions of the Add-In functionality."
 							/>
 					<button
 							id="btnOpenNewIssue"
@@ -194,7 +194,7 @@
 							imageMso="MacroSecurity"
 							size="large"
 							screentip="Report An Issue"
-							supertip="This will open a new issue page in GitHub. The user will need to login to raise an issue."
+							supertip="This will open a new issue from the site. The user will need to login to raise an issue."
 							/>
 				</group>
 				<group
@@ -204,26 +204,32 @@
 					<labelControl
 							id="lblDescription"
 							label="Add-In Name:"
+							enabled="false"
 							/>
 					<labelControl
 							id="lblReleaseDate"
 							label="Release Date: "
+							enabled="false"
 							/>
 					<labelControl
 							id="lblCopyright"
 							label="Copyright: "
+							enabled="false"
 							/>
 					<labelControl
 							id="txtDescription"
 							getLabel="GetLabelText"
+							enabled="false"
 							/>
 					<labelControl
 							id="txtReleaseDate"
 							getLabel="GetLabelText"
+							enabled="false"
 							/>
 					<labelControl
 							id="txtCopyright"
 							getLabel="GetLabelText"
+							enabled="false"
 							/>
 				</group>
 

VB/Scripts/Ribbon.vb

@@ -5,10 +5,6 @@ Imports System.Windows.Forms
 
 Namespace Scripts
 
-    ''' <summary>
-    ''' The ribbon code used for the addin
-    ''' </summary>
-    ''' <remarks></remarks>
     <Runtime.InteropServices.ComVisible(True)>
     Public Class Ribbon
         Implements Office.IRibbonExtensibility
@@ -69,8 +65,11 @@ Namespace Scripts
         End Function
 
         Public Function GetItemLabel(control As Office.IRibbonControl, index As Integer) As String
-            Dim tbl As Excel.ListObject = Globals.ThisAddIn.Application.ActiveCell.ActiveCell.ListObject
+            Dim tbl As Excel.ListObject = Nothing
             Try
+                If ErrorHandler.IsValidListObject Then
+                    tbl = Globals.ThisAddIn.Application.ActiveCell.ListObject
+                End If
                 If (tbl Is Nothing) Or index = 0 Then
                     ErrorHandler.CreateLogRecord("EMPTY")
                     Return String.Empty
@@ -90,8 +89,11 @@ Namespace Scripts
         End Function
 
         Public Function GetItemCount(control As Office.IRibbonControl) As Integer
-            Dim tbl As Excel.ListObject = Globals.ThisAddIn.Application.ActiveCell.ListObject
+            Dim tbl As Excel.ListObject = Nothing
             Try
+                If ErrorHandler.IsValidListObject Then
+                    tbl = Globals.ThisAddIn.Application.ActiveCell.ListObject
+                End If
                 If (tbl Is Nothing) Then
                     Return 2
                 Else