diff --git a/WordToXML/ItalicOptions.frm b/WordToXML/ItalicOptions.frm
index d368d1d..014c0bc 100644
--- a/WordToXML/ItalicOptions.frm
+++ b/WordToXML/ItalicOptions.frm
@@ -5,7 +5,7 @@ Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ItalicOptions
    ClientLeft      =   30
    ClientTop       =   480
    ClientWidth     =   7125
-   OleObjectBlob   =   "ItalicOptions062504.frx":0000
+   OleObjectBlob   =   "ItalicOptions080204.frx":0000
    StartUpPosition =   1  'CenterOwner
 End
 Attribute VB_Name = "ItalicOptions"
diff --git a/WordToXML/ItalicOptions.frx b/WordToXML/ItalicOptions.frx
index a669aa5..d6b40ca 100644
Binary files a/WordToXML/ItalicOptions.frx and b/WordToXML/ItalicOptions.frx differ
diff --git a/WordToXML/NewMacros.bas b/WordToXML/NewMacros.bas
index 7c2c365..f8ceb04 100644
--- a/WordToXML/NewMacros.bas
+++ b/WordToXML/NewMacros.bas
@@ -473,9 +473,12 @@ Function iterateRange(ByVal rng)
     If InStr(outStr, "HYPERLINK") Then
         sInd = InStr(outStr, "HYPERLINK")
         hind = InStr(outStr, "http")
-        eInd = InStr(hind, outStr, """")
-        linkURL = Mid(outStr, hind, eInd - hind)
-        outStr = "<xref n=""" & linkURL & """>" & Mid(outStr, (eInd + 2)) & "</xref>"
+        If hind = 0 Then hind = InStr(outStr, """")
+        If Not hind = 0 Then
+            eInd = InStr(hind, outStr, """")
+            linkURL = Mid(outStr, hind, eInd - hind)
+            outStr = "<xref n=""" & linkURL & """>" & Mid(outStr, (eInd + 2)) & "</xref>"
+        End If
     End If
     iterateRange = outStr & closeTag
 End Function