Help with Excel VBScript (not VBA) 1

[EdRev]

I have this piece of code on my script:

.Range(.Cells(1,1),.cells(1,5)).HorizontalAlignment = xlCenter
.Range(.Cells(h,1),.cells(1,5)).Font.Underline = xlUnderlineStyleSingle
.Range(.Cells(1,1), .Cells(1,5)).Font.FontStyle = "Bold"
.Range(.Cells(1,1), .Cells(1,5)).Font.Size = 9

Everything works except the HorizontalAlignment and Underline.

Any help will be greatly appreciated.

 

[tsuji]

[1] I suppose you've explicitly defined those constants?
[tt] xlCenter=-4108
xlUnderlineStyleSingle=2[/tt]
[2] There is a typo there.
> .Range(.Cells(h,1),.cells(1,5)).Font.Underline = xlUnderlineStyleSingle
[tt] .Range(.Cells([highlight]1[/highlight],1),.cells(1,5)).Font.Underline = xlUnderlineStyleSingle[/tt]

 

[EdRev]

Thanks. It works. I have been struggling with this for quite awhile and was about to give up on it.