ExcelSheet.Application.Rows(intRow & ":" & intRow).Select
ExcelSheet.Application.Selection.Font.Bold = True
ExcelSheet.Application.Columns("B:B").Select
ExcelSheet.Application.Selection.HorizontalAlignme nt = xlRight

Take the quotes off xlRight

if you are using late binding, use the value of the constant:

ExcelSheet.Application.Selection.HorizontalAlignme nt = -4152

--
Regards,
Tom Ogilvy


"edreczk" wrote in message
...

I open an Excel spreadsheet from within MS Access 2003.

I have the following code:

ExcelSheet.Application.Rows(intRow & ":" & intRow).Select
ExcelSheet.Application.Selection.Font.Bold = True
ExcelSheet.Application.Columns("B:B").Select
ExcelSheet.Application.Selection.HorizontalAlignme nt =
"xlRight"


The first three lines work fine.
I select the current row and set the font to bold.
I then select colum B and want to set it to right align.

I get the following error msg:

Run-time error '1004'
Unable to set the HorizontalAlignment property of the Range class.

Found a tip on MS.com where you set Macro Security to allow VBA....
this doesn't work in this situation.

I created a macro within Excel, which works fine... just not from
within MS Access.

Any ideas?


--
edreczk
------------------------------------------------------------------------
edreczk's Profile:
http://www.excelforum.com/member.php...o&userid=16094
View this thread: http://www.excelforum.com/showthread...hreadid=275440