how to right justify format a new entry to a worksheet

[jgoulart]

How do I control the postition of an entry that I placed into a worksheet. I have formated a variable as so:

chgprod.ret = Format(chgprod.ret, "#,##0.00")

and then I have written it to a worksheet using

workbooks(WB1).sheets(shtName).range("A" & x) = chgprod.ret

Is there a way to insure that what goes into range("A" & x) is right justified? The data that was in that location before was right justified so I'm assuming that I changed the format somehow. Any help would be greatly appreciated.

Thanks,

John

[Mudface]

Try the following: -

With Workbooks(WB1).Sheets(shtName).Range("A" & x)
.Value = chgprod.ret
.HorizontalAlignment = xlRight
End With