I sometimes get an error 91 with this code, but sometimes it works.

objWkb.Worksheets("Sorted Rankings").Range ("A1:B1")
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With

Any ideas?

Thanks

objWkb.Worksheets("Sorted Rankings").Range ("A1:B1") .Select

That is the line. Still having the error 91.

-Brian

It sounds like you haven't initialized the objWkb variable.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"BerkshireGuy" wrote in message
oups.com...
objWkb.Worksheets("Sorted Rankings").Range ("A1:B1") .Select

That is the line. Still having the error 91.

-Brian