diff options
-rw-r--r-- | wizards/source/depot/Internet.xba | 10 | ||||
-rw-r--r-- | wizards/source/tools/Misc.xba | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/depot/Internet.xba b/wizards/source/depot/Internet.xba index 333bcf98af89..d3393bc72ae9 100644 --- a/wizards/source/depot/Internet.xba +++ b/wizards/source/depot/Internet.xba @@ -172,17 +172,17 @@ Sub UpdateValue(ByVal sName As String, fDate As Double, fValue As Double ) Dim oSheet As Object Dim iColumn As Long Dim iRow As Long -Dim i as Integer +Dim i as Long Dim oCell As Object Dim LastDate as Date Dim bLeaveLoop as Boolean -Dim RemoveCount as Integer -Dim iLastRow as Integer -Dim iLastLinkRow as Integer +Dim RemoveCount as Long +Dim iLastRow as Long +Dim iLastLinkRow as Long Dim dDate as Date Dim CurDate as Date Dim oLinkSheet as Object -Dim StartIndex as Integer +Dim StartIndex as Long Dim iCellValue as Long ' Insert Sheet with Company - Chart sName = CheckNewSheetname(oSheets, sName) diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba index 2bf17d32e984..9b9e1dba6cda 100644 --- a/wizards/source/tools/Misc.xba +++ b/wizards/source/tools/Misc.xba @@ -642,7 +642,7 @@ Dim i as Integer End Function -Function GetLastUsedRow(oSheet as Object) as Integer +Function GetLastUsedRow(oSheet as Object) as Long Dim oCell As Object Dim oCursor As Object Dim aAddress As Variant |