Indenting Text within a cell using VBA

[tony333]

If I have 3 cells (A1,A2, and A3), and I display text in each, such as:
A1: “Less then 1 .............. Ok”
A2:”1 to 5 ........................Good”
A3:” 6 to 10 .....................Great”

How do I get the three words on the right (Ok, Good,and Great) to
always be lined up vertically? I can use the space bar, and with trial
and error, get them lined up, but if I run the vba code on a different
PC with a different resolution, the words will be staggered.

So how do I use a consistent indentation for the words in the right?

I hope this makes sense.

[tony333]

For cell A1, I tried using something like the following g
to indent the word OK to the right by 5 spaces but I
get a compiler error. Maybe it’s just my syntax.

With Range (“A1”).Select
ActiveCell.FormulaR1C1 = “Less then 1”
Active.InsertIndent 5
ActiveCell.FormulaR1C1 = “1”
End With

I realize I could use adjacent cells like B1 to capture
my right hand word, and it would line up, but for my
Application, I cannot use the B column cells.

Help?!?

[tony333]

Note: I also tried to use the Space() function, but that
just does the same thing as hitting the space key multiple times.

I need a way to force some text on the left-most side of a given cell,
and then able to force other text in the right-most side of the same cell.

It’s probably not possible.

[tony333]

Ah never mind! I figured it out myself, using the Justify
Distributed command. In combination with some other stuff.

Thanks for your help.

Oh wait... I never got any help! lol

😉