Hi Jim:

Thanks for the answer, but it still won't work.

I have also tried:
oSSBExcel.Range("A65536").End(xlup).AutoFormat(11)
and
oSSBExcel.Range("A65536").End(xlup).AutoFormat(For mat:=11)

I get "unknown run time error" on that line, so I know that is the
offending code.

Any other ideas?

Weezy


--
Weezy1957
------------------------------------------------------------------------
Weezy1957's Profile: http://www.excelforum.com/member.php...o&userid=24498
View this thread: http://www.excelforum.com/showthread...hreadid=380924