Below an extract of the code I am using:
lMaxStg = WorksheetFunction.Max(lentotal)
For i = 1 To UBound(dMCSum)
lenStg(i) = " -" & arrMC(i, 1) & ": " _
& dMCCount(i) & ", " & FormatCurrency(dMCSum(i))
stg(3) = stg(3) & " -" & arrMC(i, 1) & ": " _
& dMCCount(i) & ", " & FormatCurrency(dMCSum(i)) _
& WorksheetFunction.Rept(ChrB(32), lMaxStg - lenStg(i) + 1) _
& "| "
Next
Thanks Kokosek. I am going to try it.
The only thing is the length of the 1st "block" of text is variable. Thus I may not know how many 'tabs' I should use.