more uploads

artmg · Mar 9, 2015 · 4e1233d · 4e1233d
1 parent 9578203
commit 4e1233d
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/Closed.txt.txt b/Closed.txt.txt
@@ -0,0 +1,4 @@
+The following modules must remain closed source:
+
+mod_exc_FileLocations
+
diff --git a/Deprecate.txt.txt b/Deprecate.txt.txt
@@ -0,0 +1,3 @@
+Here is a list of Modules which are deprecated:
+
+mod_exc_ConsolidateWorksheets.bas
diff --git a/mod_exc_LinksFiles.bas b/mod_exc_LinksFiles.bas
@@ -7,6 +7,7 @@ Const cStrModuleName As String = "mod_exc_LinksFiles"
 ' generic functions for manipulating filesystem objects
 ' and web and sharepoint sites and URLs
 '
+'  150309.AMG  also get URL sub-address
 '  150219.AMG  added GetURL for hyperlinks
 '
 
@@ -29,9 +30,10 @@ Function GetURL(rngCell As Range) As String
         GetURL = Replace _
             (rngCell.Hyperlinks(1).Address, "mailto:", "")
 
-' credit http://excel.tips.net/T003281_Extracting_URLs_from_Hyperlinks.html
-' GetURL = GetURL & "#" & rngCell.Hyperlinks(1).SubAddress
-
+        If rngCell.Hyperlinks(1).SubAddress <> "" Then
+            ' credit http://excel.tips.net/T003281_Extracting_URLs_from_Hyperlinks.html
+            GetURL = GetURL & "#" & rngCell.Hyperlinks(1).SubAddress
+        End If
     End If
 
 End Function
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,4 @@
		The following modules must remain closed source:

		mod_exc_FileLocations
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		Here is a list of Modules which are deprecated:

		mod_exc_ConsolidateWorksheets.bas