I'm setting a column header cell's .Value to a constant:

Const mColHdr_MarketChange As String = "Mkt Value" & vbCrLf & "Change"

And then I'm aligning it right as in:
---------------------------------------
With .Cells(mRowNum_ColHeaders2, curCol)
.Value = mColHdr_MarketChange
.IndentLevel = 1
.VerticalAlignment = xlBottom
.HorizontalAlignment = xlRight
End With
---------------------------------------

But what I'm gettin is (you'll need a
fixed-space font like Courier to see it)
-------------
Mkt Value
Change
-------------

Note that the last letters are not aligned.
The "e" of "Change" sticks out to the right.

Anybody see what I'm doing wrong?

Is the .IndentLevel doing something unexpected?
I'd expect it to indent all lines and not just the first one.

I need the .IndentLevel bc I'm putting a little graphic in each
column and don't want the header to clobber it.


--
PeteCresswell

Per (PeteCresswell):
>Const mColHdr_MarketChange As String = "Mkt Value" & vbCrLf & "Change"

>Anybody see what I'm doing wrong?

Got it!

It's the CR being rendered as a space-taking character.

vbCrLf sb vbLf
--
PeteCresswell

change you constant to this

Const mColHdr_MarketChange As String = "Mkt Value" & vbLf & "Change"

you are putting in an extra character and thus causing your problem.

--
Regards,
Tom Ogilvy


"(PeteCresswell)" wrote:

> I'm setting a column header cell's .Value to a constant:
>
> Const mColHdr_MarketChange As String = "Mkt Value" & vbCrLf & "Change"
>
> And then I'm aligning it right as in:
> ---------------------------------------
> With .Cells(mRowNum_ColHeaders2, curCol)
> .Value = mColHdr_MarketChange
> .IndentLevel = 1
> .VerticalAlignment = xlBottom
> .HorizontalAlignment = xlRight
> End With
> ---------------------------------------
>
> But what I'm gettin is (you'll need a
> fixed-space font like Courier to see it)
> -------------
> Mkt Value
> Change
> -------------
>
> Note that the last letters are not aligned.
> The "e" of "Change" sticks out to the right.
>
> Anybody see what I'm doing wrong?
>
> Is the .IndentLevel doing something unexpected?
> I'd expect it to indent all lines and not just the first one.
>
> I need the .IndentLevel bc I'm putting a little graphic in each
> column and don't want the header to clobber it.
>
>
> --
> PeteCresswell
>

Per Tom Ogilvy:
>change you constant to this
>
>Const mColHdr_MarketChange As String = "Mkt Value" & vbLf & "Change"
>
>you are putting in an extra character and thus causing your problem.

Got it.

Thanks!
--
PeteCresswell