cstr() works but loop still posts as value

[KG Old Wolf]

All,

This seems so simple and it is not (at least to me).

I have a loop that reads a column of cells contains text (i.e 3640F, 88190, 88172pc). I need to just use the 5 leftmost characters and post them to another cell in the same row.

The Cstr() works but the result being posted in the related cell posts as a value when the 5 characters are number... i.e. the above 88190 and 88172 post as numbers. I need them to be text.

the loop is simple:

For lp_ctr_1 = 20 To 50 Step 1
'
varMisc = CStr(Left(Cells(lp_ctr_1, 1), 5))
Cells(lp_ctr_1, 3) = varMisc
'
Next


varMisc correctly stores a five digit number as "88190" but the receiving cell stores it as a value 88190

I cannot seem to get the receiving cell to store as text.... this is basic so it has to be me.... all help is greatly appreciated!

-kg-

 

[VoG]

Maybe

With Cells(lp_ctr_1, 3)
    .NumberFormat = "@"
    .Value = varMisc
End With

 

[KG Old Wolf]

Perfect solution.... and I learned two things in the process (I am self-taught and find this board to be an amazing resource)

Thanks so much for your help,
Ken