I wonder if there is any way to align the text inside a cell . Lets say we have inserted data in the cells  from A1 down to cell E4. How can one align the text inside those cells using VBA ?

Hi,
Use the macro record facility for most of your VBA questions.

Tools/Macros/Record new macro
give it a name
do what you want (ie. select cells, format cell alignment)
stop recording

Now, open the VBA editor and you should see the code in a module.

hope this helps
Kieron


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

Oh , sorry , my mistake . I meant how can one do that by using VB 6 (not VBA) ?

Hi,
I assume you are already using VB6 to pouplate data and create worksheets and stuff, so just record the macro, then paste it into your vb application. Just prefix "ActiveWorksheet" with your application variable.
example:

dim myApp as Excel.Application
dim myWS as Excel.Worksheet

set MyWb = MyApp.ActiveWorksheet

myWb.Range("A1").Format.Align=2

Hope this helps,
Kieron


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

There's something wrong . I am using :

ExcelWorksheet.Range("A1:X9").Format.Align = 2

but I get the message :
"Object does not support this method or property ."
So , I went over and found that you can not use :
ExcelWorksheet.Range("A1:A9").Format ,
becouse the the Format property is not reckognized .

Hi,
Did you record the macro in excel as I suggested?
If you had, you would have found the following:

With Selection         .HorizontalAlignment = xlRight         .VerticalAlignment = xlBottom         .WrapText = False         .Orientation = 0         .AddIndent = False         .IndentLevel = 0         .ShrinkToFit = False         .ReadingOrder = xlContext         .MergeCells = False     End With

which can be translated to:

Worksheets(1).Range("A1").HorizontalAlignment = xlRight

Regards
Kieron


____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)

Now , this is a correct code . This one really worked . I guess the first time you were using VB Net instead of VB6 . And , by the way , in order to align text to the center , I used :
ExcelWorksheet.Range("A1:X9").HorizontalAlignment = xlCenter

Thanks stickleprojects .