Instead of actually using a SELECTION, try this:

objWb7.Columns("A:A").EntireColumn.AutoFit

And I would not worry about the A1 Selection unless it is entirely
necessary.

Mark

"Ralf Meuser" wrote in message
...
Hi there

I'm trying to create a script which adds a new sheet with datas from other
sheets.
Some things work now but I have still an error and I realldy don't
understand why.

My script looks like this:
Set objXL = WScript.CreateObject ("Excel.Application")
...
Set objDanach =
objXL.ActiveWorkBook.WorkSheets(objXL.ActiveWorkBo ok.Worksheets.Count)
Set objWb7 = objXL.ActiveWorkBook.WorkSheets.Add(,objDanach)
objWb7.Name = "KPI4-6"
objWb7.Tab.ColorIndex = 7
...
objWb7.Cells(6, 1).Value ="some text..."
objWb7.Cells(6, 1).Font.Italic = TRUE
objWb7.Cells(6, 1).Font.Size = 8
objWb7.Cells(6, 1).Font.ColorIndex = 6
objWb7.Cells(6, 1).Interior.ColorIndex = 34
...
objWb7.Columns("A:A").Select
objWb7.Selection.Columns.AutoFit
objWb7.Range("A1").Select
...


In the last part I get an error on objWb7.Columns("A:A").Select Error
Code 800A03EC
the error syas someing like Select class Rang failed



Thanks in advance for any help

Best regards

Ralf