#99839# german comments translated

8 files changed, 58 insertions, 83 deletions

diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba
index c5bdc455db7d..90820d1f443a 100644
--- a/wizards/source/euro/AutoPilotRun.xba
+++ b/wizards/source/euro/AutoPilotRun.xba
@@ -180,13 +180,13 @@ End Function
 Sub SwapExtent()
 	DialogModel.chkRecursive.Enabled = DialogModel.optWholeDir.State = 1
 	If DialogModel.optWholeDir.State = 1 Then
-		DialogModel.lblSource.Label = sSOURCEDIR     '"Quellverzeichnis:"
+		DialogModel.lblSource.Label = sSOURCEDIR     
 		If Not IsNull(SubstFile) Then
 			SubstFile = DialogModel.txtSource.Text
 			DialogModel.txtSource.Text = SubstDir
 		End If
 	Else
-		DialogModel.LblSource.Label = sSOURCEFILE   '"Quelldatei:"
+		DialogModel.LblSource.Label = sSOURCEFILE
 		If Not IsNull(SubstDir) Then
 			SubstDir = DialogModel.txtSource.Text
 			DialogModel.txtSource.Text = SubstFile
@@ -211,7 +211,7 @@ Dim TextBoxText as String
 		DialogModel.lblRetrieval.Label = sPrgsRETRIEVAL
 		DialogModel.lblCurProgress.Label = sPrgsCONVERTING
 		If DialogModel.optWholeDir.State = 1 Then
-			TextBoxText = sSOURCEDIR & " " & ConvertFromUrl(Source) & chr(13) '& " "
+			TextBoxText = sSOURCEDIR & " " & ConvertFromUrl(Source) & chr(13)
 			If DialogModel.chkRecursive.State = 1 Then
 				TextBoxText = TextBoxText & DeleteStr(sInclusiveSubDir,"~") & chr(13)
 			End If
diff --git a/wizards/source/euro/Common.xba b/wizards/source/euro/Common.xba
index e82ed658ed94..9c92e30f2ff7 100644
--- a/wizards/source/euro/Common.xba
+++ b/wizards/source/euro/Common.xba
@@ -95,10 +95,8 @@ Dim sOldCurrSymbol as String
 		aSimpleStr = "0 [$" & sEuroSign & aFormat.CurrencyExtension & "]"
 	End If
 
-	' Numberformat mit dem neuen Symbol als Basis für generateFormat
 	nSimpleKey = Numberformat(oFormats, aSimpleStr, oLocale)
-	' Typ und Währungssymbol des Numberformats heraussuchen
-	' neues Währungsformat mit passenden Einstellungen setzen
+	' set new Currency format with according settings
 	nFormatDecimals = 2
 	nFormatLeading = aFormat.LeadingZeros
 	bFormatNegRed = aFormat.NegativeRed
@@ -128,9 +126,6 @@ Dim c as String
 End Function
 
 
-' Funktion findet den Formattyp einer Vorlage, Zelle oder eines Bereiches heraus und schreibt das Ergebnis
-' in die globale Variable nFormatType; Ist ein Währungssymbol gesetzt, wird dieses in den globalen String
-' sFormatCurrency geschrieben.
 Function CheckFormatType( FormatObject as object)
 Dim i as Integer
 Dim LocCurrIndex as Integer
@@ -143,7 +138,6 @@ Dim oFormatofObject() as Object
 	On Local Error GoTo NOKEY
 	oFormatofObject = oFormats.getByKey(FormatObject.NumberFormat)
 	On Local Error GoTo 0			
-	' Typ und Währungssymbol des Numberformats heraussuchen
   	If NOT INT(oFormatofObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY Then
 		CheckFormatType = False
 		Exit Function
diff --git a/wizards/source/euro/ConvertRun.xba b/wizards/source/euro/ConvertRun.xba
index 0582b0c6f4ff..8e90ed3a9d95 100644
--- a/wizards/source/euro/ConvertRun.xba
+++ b/wizards/source/euro/ConvertRun.xba
@@ -98,7 +98,7 @@ Dim MaxIndex as Integer
 End Sub
 
 
-' Prozedur that is called by an event
+' Procedure that is called by an event
 Sub RetrieveEnableValue()
 Dim EnableValue as Boolean
 	EnableValue = Not DialogModel.lstSelection.Enabled
@@ -196,7 +196,7 @@ Dim s as Integer
 End Sub
 
 
-' Alles was selektiert wurde wird deselektiert
+' Everything previously selected will be deselected
 Sub EmptySelection()
 Dim RangeName as String
 Dim i as Integer
diff --git a/wizards/source/euro/Hard.xba b/wizards/source/euro/Hard.xba
index b2e0d5d3c785..e00609ee92f0 100644
--- a/wizards/source/euro/Hard.xba
+++ b/wizards/source/euro/Hard.xba
@@ -9,11 +9,11 @@ Dim MaxIndex as Integer
 	MaxIndex = -1
 	EnableStep1DialogControls(False, False, False)
 	EmptySelection()
-	DialogModel.lblSelection.Label = sCURRRANGES  	'"Währungsbereiche:"
+	DialogModel.lblSelection.Label = sCURRRANGES
 	EmptyListbox(DialogModel.lstSelection)
 	oDocument.CurrentController.Select(oSelRanges)
 	If (DialogModel.optSheetRanges.State = 1) AND (DialogModel.chkComplete.State <> 1) Then
-		' Ist das Sheet Grundlage für die Bearbeitung?
+		' Conversion on a sheet?
 		SetStatusLineText(sStsRELRANGES)
 		osheet = oDocument.CurrentController.GetActiveSheet
 		oRanges = osheet.CellFormatRanges.createEnumeration()
@@ -36,7 +36,7 @@ Dim MaxIndex as integer
 Dim sStatustext as String
 	MaxIndex = -1
 	If Not bRangeListDefined Then
-		' Die Ranges sind noch nicht definiert
+		' Cellranges are not yet defined
 		oSheets = oDocument.Sheets
 		For i = 0 To oSheets.Count-1
 			oSheet = oSheets.GetbyIndex(i)
@@ -53,7 +53,7 @@ Dim sStatustext as String
 	Else
 		If Not bAutoPilot Then
 			SetStatusLineText(sStsRELRANGES)
-			' Die Ranges sind schon definiert
+			' cellranges already defined
 			For i = 0 To Ubound(RangeList())
 				If RangeList(i) <> "" Then
 					AddSingleItemToListBox(DialogModel.lstSelection, RangeList(i))
@@ -100,7 +100,7 @@ Dim MaxIndex as Integer
 End Function
 
 
-' Fügt einen Bereich zur selektierten Kollektion hinzu
+' adds a section to the collection
 Sub SelectRange()
 Dim i as Integer
 Dim RangeName as String
@@ -129,7 +129,7 @@ End Sub
 
 
 Sub ConvertThehardWay(ListboxList(), SwitchFormat as Boolean, bRemove as Boolean)
-Dim i as Integer ' r, a
+Dim i as Integer
 Dim AddCells as Long
 Dim OldStatusValue as Single
 Dim RangeName as String
@@ -140,7 +140,7 @@ Dim oSelListbox as Object
 	Lastindex = Ubound(ListboxList())
 	If TotCellCount > 0 Then
 		OldStatusValue = StatusValue
-		' Harte Formatierung
+		' hard format
 		For i = 0 To LastIndex
 			RangeName = ListboxList(i)
 			oRange = RetrieveRangeoutofRangeName(RangeName)
@@ -153,11 +153,11 @@ Dim oSelListbox as Object
 			End If
 			If SwitchFormat Then
 				If oRange.getPropertyState("NumberFormat") <> 1 Then
-					' Range Ist hart formatiert
-					SwitchNumberFormat(oRange, oFormats, sEuroSign)' "€")
+					' Range is hard formatted
+					SwitchNumberFormat(oRange, oFormats, sEuroSign))
 				End If
 			Else
-				SwitchNumberFormat(oRange, oFormats, sEuroSign) '"€"
+				SwitchNumberFormat(oRange, oFormats, sEuroSign)
 			End If
 			AddCells = CountRangeCells(oRange)
 			CurCellCount = AddCells
@@ -198,10 +198,7 @@ Dim oFormatofObject() as Object
 	On Local Error GoTo NOKEY
 	oFormatofObject() = oFormats.getByKey(FormatObject.NumberFormat)
 	On Local Error GoTo 0			
-
-	' Typ und Währungssymbol des Numberformats heraussuchen
-	' Todo: Überprüfe, ob diese beiden Zeilen nicht eleganter gehen
-	 CheckIfRangeIsCurrency = INT(oFormatofObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY
+	CheckIfRangeIsCurrency = INT(oFormatofObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY
 	Exit Function
 NOKEY:
 	CheckIfRangeisCurrency = False
diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba
index b52ed371d716..fcecc8d64aa8 100644
--- a/wizards/source/euro/Init.xba
+++ b/wizards/source/euro/Init.xba
@@ -3,14 +3,7 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Init" script:language="StarBasic">Option Explicit
 REM  *****  BASIC  *****
 
-&apos; Zu diskutieren:
-&apos; Autopilot von Werkzeugleiste für Textdokumente mit eigener Konverterseite?
-&apos; Konvertierung von Datenbankfeldern &apos;- Problematik der Formatierung mit FS durchsprechen!?
-&apos; Option des einleitenden Welcome-Text, der erklärt, was eigentlich Sache ist (wie beim Dokumenten Konverter)
-&apos; Option der Checkbox-Gruppe in der die zu konvertierenden Dokumenttypen aufgeführt sind
-&apos; -&gt; bei den letztgenannten Optionen müsste der Dialog in seiner Höhe vergrößert werden.
-&apos; Wir sollten informiert werden, ob und wie oder wann das Standard - Währungsformat für die Euroländer umgesetzt
-&apos; wird.
+
 
 Public Const SBRANGEUBOUND = 20
 Public StyleRangeAssignmentList(SBRANGEUBOUND)as String
@@ -129,14 +122,10 @@ Public sEuroSign as String
 Public oPointer as Object
 Public sDocType as String
 Public bPreSelected as Boolean
-&apos;Public DocDisposed as Boolean
-&apos;Public bMacroStopped as Boolean
 Public bRecursive as Boolean
 Public bCancelProtection as Boolean
 Public CurrRoundMode as Boolean
 Public bRangeListDefined as Boolean
-&apos; Note the variable bDocHasProtectedSheets does not contain information
-&apos; wether sheets have to be reprotected
 Public bDocHasProtectedSheets as Boolean
 Public sGOON as String
 Public sHELP as String
@@ -218,10 +207,10 @@ Sub InitializeResources()
 		Else
 			.lblProgress.Label = sStsPROGRESS
 		 	.hlnExtent.Label = GetResText(1200)
-			.optSingleFile.Label = GetResText(1201) &apos;&quot;Einzelnes StarOffice -Dokument&quot;&apos;GetResText(1201)
+			.optSingleFile.Label = GetResText(1201) 
  			.optWholeDir.Label = GetResText(1202)
  			.chkProtect.Label = GetResText(1207)
- 			.chkTextDocuments.Label = GetResText(1210) 	&apos; &quot;Auch Feldbefehle und Tabellen in Textdokumenten konvertieren&quot;&apos; Todo: Dieses Model später am Control unsichtbar machen	
+ 			.chkTextDocuments.Label = GetResText(1210) 
 
 			sSOURCEFILE = GetResText(1203)
 			sSOURCEDIR = GetResText(1204)
@@ -336,109 +325,108 @@ Dim i as Integer
 	GoOn = True
 
 	CurrValue(0,0) = sCurrPORTUGUESE
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(0,1) = 200.482
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(0,2) = 200
 	CurrValue(0,3) = &quot;Esc.&quot;
 	CurrValue(0,4) = &quot;Esc.&quot;
 	CurrValue(0,5) = &quot;PTE&quot;
 
 	CurrValue(1,0) = sCurrDUTCH
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(1,1) = 2.20371
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(1,2) = 2
 	CurrValue(1,3) = &quot;F&quot;
 	CurrValue(1,4) = &quot;fl&quot;
 	CurrValue(1,5) = &quot;NLG&quot;
 
 	CurrValue(2,0) = sCurrFRENCH
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(2,1) = 6.55957
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(2,2) = 7
 	CurrValue(2,3) = &quot;F&quot;
 	CurrValue(2,4) = &quot;F&quot;
 	CurrValue(2,5) = &quot;FRF&quot;
 
 	CurrValue(3,0) = sCurrSPANISH
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(3,1) = 166.386
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(3,2) = 170
 	CurrValue(3,3) = &quot;Pts&quot;
 	CurrValue(3,4) = &quot;Pts&quot;
 	CurrValue(3,5) = &quot;ESP&quot;
 
 	CurrValue(4,0) = sCurrITALIAN
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(4,1) = 1936.27
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(4,2) = 2000
 	CurrValue(4,3) = &quot;L.&quot;
 	CurrValue(4,4) = &quot;L.&quot;
 	CurrValue(4,5) = &quot;ITL&quot;
 
 	CurrValue(5,0) = sCurrGERMAN
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(5,1) = 1.95583
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(5,2) = 2
 	CurrValue(5,3) = &quot;DM&quot;
 	CurrValue(5,4) = &quot;DM&quot;
 	CurrValue(5,5) = &quot;DEM&quot;
 
 	CurrValue(6,0) = sCurrBELGIAN
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(6,1) = 40.3399
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(6,2) = 40
 	CurrValue(6,3) = &quot;FB&quot;
 	CurrValue(6,4) = &quot;BF&quot;
 	CurrValue(6,5) = &quot;BEF&quot;
 
 	CurrValue(7,0) = sCurrIRISH
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(7,1) = 0.787564
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(7,2) = 0.8
 	CurrValue(7,3) = &quot;IR£&quot;
-	CurrValue(7,4) = &quot;£&quot;		&apos; Todo: This is only for backwards compatibility. Follow Bug #92049
+	CurrValue(7,4) = &quot;£&quot;
 	CurrValue(7,5) = &quot;IEP&quot;
 
 	CurrValue(8,0) = sCurrLUXEMBOURG
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(8,1) = 40.3399
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(8,2) = 40
 	CurrValue(8,3) = &quot;F&quot;
 	CurrValue(8,4) = &quot;F&quot;
 	CurrValue(8,5) = &quot;LUF&quot;
 
 	CurrValue(9,0) = sCurrAUSTRIAN
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(9,1) = 13.7603
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(9,2) = 15
 	CurrValue(9,3) = &quot;öS&quot;
 	CurrValue(9,4) = &quot;S&quot;
 	CurrValue(9,5) = &quot;ATS&quot;
 
 	CurrValue(10,0) = sCurrFINNISH
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(10,1) = 5.94573
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(10,2) = 6
 	CurrValue(10,3) = &quot;mk&quot;
 	CurrValue(10,4) = &quot;mk&quot;
 	CurrValue(10,5) = &quot;FIM&quot;
 
-&apos; Todo: Werte verlorengegangen?
 	CurrValue(11,0) = sCurrGREEK
-	&apos; Wahrer Umrechnungskurs
+	&apos; real conversion rate
 	CurrValue(11,1) = 340.750
-	&apos; Gerundeter Umrechnungskurs
+	&apos; rounded conversion rate
 	CurrValue(11,2) = 400
 	CurrValue(11,3) = chr(916) &amp; chr(961) &amp; chr(967)
 	CurrValue(11,4) = chr(916) &amp; chr(961) &amp; chr(967)
@@ -463,7 +451,6 @@ End Sub
 Sub InitializeConverter(oLocale, iDialogPage as Integer)
 Dim Isthere as Boolean
 	bCancelProtection = False
-&apos;	bMacroStopped = False
 	bRangeListDefined = False
 	PWIndex = -1
 	If iDialogPage = 1 Then
@@ -517,7 +504,7 @@ Dim bTakeThisLocale as Boolean
 			If DialogModel.Step = 2 Then
 				bTakeThisLocale = LangIDValue(n,m,0) = sLanguage
 			Else
-				bTakeThisLocale = LangIDValue(n,m,0) = sLanguage&apos; AND LangIDValue(n,m,1) = sCountry
+				bTakeThisLocale = LangIDValue(n,m,0) = sLanguage
 			End If
 			If bTakeThisLocale Then
 				CurrIndex = n
diff --git a/wizards/source/euro/Protect.xba b/wizards/source/euro/Protect.xba
index a1ae708ace6b..8a852e9c3e5c 100644
--- a/wizards/source/euro/Protect.xba
+++ b/wizards/source/euro/Protect.xba
@@ -68,13 +68,13 @@ Dim PWIsCorrect as Boolean
 Dim QueryText as String
 	oDocument.CurrentController.SetActiveSheet(oListSheet)
 	QueryText = ReplaceString(sMsgPWPROTECT,&quot;&apos;&quot; &amp; ListSheetName &amp; &quot;&apos;&quot;, &quot;%1TableName%1&quot;)
-	&apos;&quot;Geben Sie das Kennwort zum Entschützen der Tabelle &apos;&quot; &amp; ListSheetName &amp; &quot; ein:&apos;&quot;
+	&apos;&quot;Please insert the password to unprotect the sheet &apos;&quot; &amp; ListSheetName&apos;&quot;
 	Do
 		ExecutePasswordDialog(QueryText)
 		If bCancelProtection Then
 			bCancelProtection = False
 			Msgbox (sMsgSHEETSNOPROTECT, 64, sMsgDLGTITLE)
-			UnprotectSheetWithDialog() = False   &apos;&quot;Tabelle wird nicht entschützt!&quot;
+			UnprotectSheetWithDialog() = False
 			exit Function
 		End If
 		oListSheet.Unprotect(Password)
@@ -87,7 +87,7 @@ Dim QueryText as String
 			PWIsCorrect = True
 		End If
 	Loop Until PWIsCorrect
-	UnprotectSheetWithDialog() = True   &apos;&quot;Tabelle wird nicht entschützt!&quot;	
+	UnprotectSheetWithDialog() = True
 End Function
 
 
diff --git a/wizards/source/euro/Soft.xba b/wizards/source/euro/Soft.xba
index 77880ffb2db5..b4088e931156 100644
--- a/wizards/source/euro/Soft.xba
+++ b/wizards/source/euro/Soft.xba
@@ -9,7 +9,7 @@ Sub CreateStyleEnumeration()
 	EmptyListbox(DialogModel.lstSelection)
 	CurSheetName = oDocument.CurrentController.GetActiveSheet.Name
 	MakeStyleEnumeration(False)
-	DialogModel.lblSelection.Label = sTEMPLATES				&apos; &quot;Vorlagen:&quot;
+	DialogModel.lblSelection.Label = sTEMPLATES
 End Sub
 
 
@@ -120,7 +120,7 @@ Dim CellCountString as String
 End Sub				
 
 
-&apos; löscht eine Stilvorlage aus der Kollektion, die die Ranges selektiert
+&apos; deletes a styletemplate from the Collection that selects the ranges
 Sub DeselectStyle(DeSelStyleName as String, n as Integer)
 Dim i as Integer
 Dim RangeName as String
@@ -156,21 +156,21 @@ Dim oAddressRanges as Object
 End Function
 
 
-&apos; Erzeugt eine Sheetobjekt aus einem entsprechenden Bereichsnamen
+&apos; creates a sheet object from an according sectionname
 Function RetrieveSheetoutofRangeName(TableText as String)			
 Dim DescriptionList() as String
 Dim SheetName as String
 Dim MaxIndex as integer
-	&apos; Herausfinden, in welchem Sheet sich der Range befindet
+	&apos; find out in which sheet the range is
 	DescriptionList() = ArrayOutofString(TableText,&quot;.&quot;,MaxIndex)
 	SheetName = DescriptionList(0)
 	SheetName = DeleteStr(SheetName,&quot;&apos;&quot;)
-	&apos; Und den ViewCursor auf dieses Sheet setzen
+	&apos; set the viewcursor on this sheet
 	RetrieveSheetoutofRangeName = oSheets.GetbyName(SheetName)
 End Function
 
 
-&apos; Erzeugt eine Rangeobjekt aus einem entsprechenden Bereichsnamen
+&apos; creates a rangeobject from an according rangename
 Function RetrieveRangeoutofRangeName(TableText as String) 
 	oSheet = RetrieveSheetoutofRangeName(TableText)
 	oRange = oSheet.GetCellRangebyName(TableText)
@@ -202,7 +202,7 @@ Dim MaxIndex as Integer
 			RangeName = StyleRangeList(s)
 			oRange = RetrieveRangeoutofRangeName(RangeName)
 			If oRange.getPropertyState(&quot;NumberFormat&quot;) = 1 Then
-				&apos; Range Ist hart formatiert
+				&apos; Range is hard formatted
 				ConvertCellCurrencies(oRange)
 				CurCellCount = CountRangeCells(oRange)
 			End If
@@ -216,7 +216,6 @@ Dim MaxIndex as Integer
 			End If
 		Next s
 		SwitchNumberFormat(ostyle, oFormats, sEuroSign)
-&apos;		oStatusline.SetValue(100)
 		StyleRangeAssignmentList(n) = &quot;&quot;
 		l = GetItemPos(oSelListBox.Model, CurStyleName)
 		oSelListbox.RemoveItems(l,1)			
diff --git a/wizards/source/euro/Writer.xba b/wizards/source/euro/Writer.xba
index 27dc3a0ba40d..8d9683cda3eb 100644
--- a/wizards/source/euro/Writer.xba
+++ b/wizards/source/euro/Writer.xba
@@ -10,14 +10,12 @@ Dim oPara as Object
 Dim i as integer
 Dim sCellNames()
 Dim oCell as Object
-&apos;	oDocument = StarDesktop.ActiveFrame.Controller.Model
-&apos;	oFormats = oDocument.NumberFormats
 	oParagraphs = oDocument.Text.CreateEnumeration
 	While oParagraphs.HasMoreElements
 		oPara = oParagraphs.NextElement
 		If NOT oPara.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
-			&apos; Note: Da Zellen gesplittet oder zusammengefügt werden können
-			&apos; kann man die Zellen nicht über ihre Indizes ansprechen.
+			&apos; Note: As cells might be splitted or merged
+			&apos; you cannot refer to them via their indices
 			sCellNames = oPara.CellNames
 			For i = 0 To Ubound(sCellNames)
 				If sCellNames(i) &lt;&gt; &quot;&quot; Then